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INTRODUCTION TO 9100B CALCULATOR 



Congratulations, you have just become the proud owner of a new Hewlett-Packard 9100B Calculator. 
This calculator is a big brother to the successful Hewlett-Packard 9100A. The 9100B however, has several 
features which more than triple its computing power, these being: 

1. A TWO PAGE memory allowing up to 392 program steps or 32 data storage registers. 

2. A true SUBROUTINE capability permitting instant access to subroutines from any point 
in a program. 

3. A convenient X — ( ) operator allowing rapid data recall to the X register. 

4. A STEP PROGRAM "dual display" greatly simplifying program editing and modification. 

A detailed explanation of the use of these features is found in the 9100B Operating and Programming 
Manual (Hewlett-Packard Part No. 09100-90021) supplied with your calculator. 

We hope you find the 9100B Calculator and Library a useful tool and guide for your computational work. 
To better serve you and other 9100 Calculator users, we welcome you to send us program solutions you have 
written. Please write them up in a format similar to the programs furnished in the Program Library and send 
them to us. Also send in any comments you might have on the 9100B Calculator and Program Library to our 
Applications Group. We at Hewlett-Packard look forward to serving you. 

Sincerely, 

HEWLETT-PACKARD COMPANY 

Dave Cole 
Applications 

P.O. Box 301 

Loveland, Colorado 80537 



INTRODUCTION TO LIBRARY 



This Program Library is intended to illustrate practical problem solutions available with the 9100B 
Calculator. Approximately two thirds of the programs in this library are compatible with the 9100A Calculator. 
Those programs which are applicable only to the "B" calculator will have a 9100B ONLY above the program 
number. 

Many programs are short enough so that they may be incorporated as subroutines in other programs. 
Each program consists of a description, equations (with references), examples and a list of the program steps. 
The programs have been placed in a three-ring binder with classification dividers so that changes, additions 
and reorganizations can be easily made. Each classification has a corresponding part number and each program 
within a category is numbered according to the classification part number. 

In each Program Library Classification is found a listing of the programs in that section. The first 
grouping contains 9100A programs (with "A" program numbers). The second grouping contains "B" only 
programs for that classification. An inspection of the first group program numbers will disclose that certain 
"A" programs have been removed from the "B" Library. These deleted programs have been replaced by more 
extensive "B" programs. 

PROGRAM LIBRARY CLASSIFICATIONS 



HP Part No. 




09100-70000 


Mathematics 


09100-70800 


Statistics 


09100-71000 


Electronics 


09100-72000 


Mechanics 


09100-73000 


Business 


09100-73200 


Physics 


09100-73700 


Thermodynamics 


09100-74000 


Surveying 


09100-74200 


Structures 


09100-75000 


Fluid Mechanics 


09100-75200 


Life Sciences 


09100-75500 


Chemical 


09100-75800 


Secondary Education 


09100-76000 


Miscellaneous 



You are invited to submit programs for inclusion in the Hewlett-Packard KEYBOARD, a periodic 
publication which contains useful information about the Hewlett-Packard 9100 Calculator systems. Submitted 
programs having a broad appeal or illustrating ingenious programming techniques will be included in the 
KEYBOARD with credit. 

Please return the Program Library card (in the pocket on the rear cover) indicating the Program 
Library disciplines in which you are interested. 

The following accessories are available: 



HP Part No. 




09100-90020 


Five Programming Pads 


09100-90021 


Operating and Programming Manual 


09100-90022 


9100B Program Library 


09100-90024 


Diagnostic Card and Envelope 


5060-5919 


Box of Ten Magnetic Program Cards 


4040-0350 


Dust Cover 


9320-1183 


PuU-Out Card (English) 


9320-1184 


Pull-Out Card (French) 


9320-1185 


PuU-Out Card (German) 


9320-1186 


PuU-Out Card (Italian) 


9320-1187 


PuU-Out Card (Spanish 



Program Library Usage 



To facilitate the use of the 9100B Program Library, brief discussions of: 

Manual Program Entry, 
Program Loading from Magnetic Card, 
and 9100B Peripherals 

are included here. The Operating and Programming Manual (HP Part No. 09100-90021) covers these topics in 
greater detail and should be consulted for further information. 



Manvial Program Entry 

Initially, the program steps must be manually entered into the calculator step-by-step. Then, you may 
record the program on a magnetic card furnished with your calculator. The use of the magnetic card eliminates 
repeated manvial re-entry. Programs recorded on the magnetic card may be entered instantly, using the ENTER 
button on the calculator. After entering the program steps into the calculator, it is suggested that you use the 
sample data to verify test answers. If you do not get the correct answers, it is suggested that you carefully 
check each program step to see if the program is correctly entered into the appropriate location and/or re-read 
the user instructions. This may be done by comparing the step location and the code number to the printed 
program. You can do this very conveniently using the STEP PROGRAM key in the program mode. 



Program Loading 

In general, 9100B programs will occupy both the (+) and (-) calculator pages. The most efficient manner 
to load a 2-page program is to load Side A into the (+) page and Side B into the (-) program page. This can 
easily be accomplished by placing no END statements on the (+) program page. The END statement may be 
included on the (-) program page. Toad the program as follows: 

PRESS: END 

ENTER PROGRAM: Side A 

(Since there is no END on Side A, the calculator will advance to (-)(0)(0) 
automatically). 

ENTER PROGRAM: Side B 

(With or without an END, the calculator will advance to (+)(0)(0) ready for 
execution). 

In the Program Library the above two instructions will be replaced by the single instruction: 

ENTER PROGRAM: Side A followed by Side B 

To insure that an extraneous END statement does not get recorded on Side A, all unused registers on the (+) 
page should be filled with CONTINUE 's prior to recording. 



9100B Peripherals 

Several peripheral devices are available to complement the 9100B Calculator, these being: 

9125A X - Y Plotter 
9120A Printer 
9160A Optical Card Reader 
9150A Display Monitor 

The "B" library has been written to simplify the attachment of the 9125A and 9120A to the 9100B. At 
appropriate input and output points in a program CONTINUE *s have been placed for use in calling the printer 
or plotter. In most cases the plotting programs incorporate plotting Subroutines allowing the user to specify 
units in terms of inches, or centimeters. 
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9100B/ 9100A Program Library Cross-Reference 



The 9100B Program Library contains several B Only programs which previously were "A" programs. 
These programs were either multiple pass or storage limited on the 9100A Calculator. After conversion, these 
programs offer the advantages of being single pass, having ample storage, and in some cases yielding plotted 
output. The table given below lists these converted programs. 



'A" Library Part Number Program Title "B" Library Part Number 

70015 NUMERICAL INTEGRATION USING 70409 

SIMPSON'S RULE WHEN f(x) IS 
KNOWN 

70018 CONVOLUTION 70408 

70019 4th OR 5th DEGREE POLYNOMIAL 70405 
ROOTS 

X 

70020 INTEGRAL OF THE FORM F(X) = J f(u)du 70410 

A 

70810 WEIBULL DISTRIBUTION PARAMETER 70902 

CALCULATION FOR FAILURE DATA 

70814 MULTIPLE LINEAR REGRESSION 70901 

70815 NON-LINEAR REGRESSION-LEAST 70903 
SQUARES PARABOLA 

71002 TCHEBYSHEFF FILTER DESIGN-- 71501 

FINITE TERMINATIONS 

71011 S PARAMETER TO Y PARAMETER 71502 

CONVERSION 

74008 COORDINATE GEOMETRY AND 74102 

ENCLOSED AREA 



74011 



TRAVERSE WITH COMPASS RULE 
ADJUSTMENT OPTION 



74101 



Q 

a: 

^ miL Si'pUMnbiT 1. 1969 

O 

°- W'^HTll^ 9100R PROGRAM LISTING 



UJ 



UJ 
X 



UJ 



LiJ 
X 



MATHEMATICS 09100-70000 



p-j 70001 - n! 

^ Calculates n! for positive integer n. (n <70) 



70002 - POLYNOMIAL EVALUATION 
Evaluates polynomials of the form: 



5 f(z) = C^z^ + C^_iz^~^ + . . . + C^z + Cq 



for complex C^, i=l , . . . , n and complex z. 



K 70003 - NUMERICAL INTEGRATION USING SIMPSON'S ONE-THIRD RULE 
^ Uses Simpson's rule to obtain the area under a curve. The equation used is: 

£ A = |- (Yo + 4Yi + Y2) 

X 

70006 - 1st ORDER DIFFERENTL^L EQUATIONS 
Q Solves differential equations of the form: 

Q y ' - f(^' y) 

a: 

< 70007 - RAISING A NUMBER TO A POWER 
^ Solves the equation: 

< Zo 

Q- Zg = where Z^ = X- + JY^ i = 1, 2, 3 



□ 70008 - 2nd ORDER DIFFERENTIAL EQUATIONS 
-J Solves differential equations of the form: 

^ y^^ = f(x, y, yO 

g 70009 - QUADRATIC EQUATION 

Solves ax^ + bx + c = 0 for the roots. 

Q 

fr 70010 - FINITE DIFFERENCE INTERPOLATION USING GAUSS'S BACKWARD FORMULA 

< Uses Gauss's backward formula for interpolation in tabular data with equal abscissa spacing. 

^ The program fits a cubic equation through the tabular data. 

< 

a. 70011 - CUBIC EQUATION 
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Solves X + px'^ + qx + r = 0 for the real and complex roots. 



^ 70013 - FACTORS OF n 

UJ Gives all factors of an integer n^ 

X 

5 70014 - REAL ROOTS OF f(x) 

^ Calculates real roots of f(x) by starting from Xq and incrementing until f(x) changes sign, 
then converges on the root. f(x) is programmed in by the user. 

§ 70016 - SIMULTANEOUS SOLUTION OF TWO EQUATIONS IN TWO UNKNOWNS 

< The program solves two independent equations of the form: 

^ ax + by = e 

Q_ cx + dy = f 

H- X and y are the unknowns to be found. 
LU 



PRINTED IN U.S.A. 



MATHEMATICS (CON'T) 



70017 - n! (n < 10 ) 

Calculates n! for positive integer n. 

70021 - POLYNOMIAL EVALUATION (1 < n < 10) 
Repeatedly evaluates for a given x, a real polynomial of the form: 

f(x) = A^x^ + A^ -^x^-'^ . . . A^x + Aq for 1 < n < 10 

70022 - 3 X 3 MATRIX INVERSION OR SIMULTANEOUS SOLUTION OF THREE EQUATIONS 

IN THREE UNKNOWNS 
Solves three linear independent equations in three unknowns simultaneously or inverts a 
3x3 matrix. 

70023 - FOURIER SERIES 

Calculates the Fourier Series coefficients that represent a periodic time function f(t) with period T. 
The specific f(t) is programmed into the calculator by the user. 

70024 - GAMMA FUNCTION °° 
Evaluates the gamma function r{j/) for 0 < i/ < 10^ where r(z/) = j e-^ t ^~ ■'^dt 

0 

70025 - BESSEL FUNCTION 

Calculates the value of the Bessel function Jj^(x) of the first kind of integer order n where 

/ x^ k 

^^~2l k! (n + k)! 

70401 - HYPERGEOMETRIC SERIES EXPANSION 

Given a, b, and c, this program determines the coefficients of the hypergeometric 
series F(a, b, c; X). This program is useful in solving Gauss's differential equation. 

70402 - (3 X 3) MATRIX MULTIPLICATION 

Given two (3x3) matrices A and B, this program determines the product matrix C = A. B . 

70403 - ROOTS OF A 4th DEGREE POLYNOMIAL 

This program determines the roots (real and complex) of a 4th degree polynomial of the form 

X^ + a^X^ + a2X^ + a3X + a.4 
where aj; is real. 

70404 - NUMERICAL SOLUTION OF TWO FIRST ORDER DIFFERENTIAL EQUATIONS 
This program may be used to solve a wide variety of pairs of first order differential 
equations of the form 

= f(X,Y,Z), 



^=g(X,Y,Z). 

70405 - ROOTS OF A 6th DEGREE POLYNOMIAL 
The program determines the roots (real and complex) of a 6th degree polynomial of the form 

X^ + a^^X^ + agX^ + agX^ + a4x2 + a^X + ae 

where a^ is real . 

70406 - CHARACTERISTIC EQUATION OF A (3 X 3) MATRIX AND EIGENVALUE DETERMINATION 
Given a (3 x 3) matrix A, this program computes the characteristic equation 

X^+pX2+q X+r=0 
and then determines the eigenvalues by using Program 09100-70011 as a Sub-Program. 



MATHEMATICS (CON'T) 



70407 - SIMULTANEOUS SOLUTION OF FOUR LINEAR EQUATIONS IN FOUR UNKNOWNS 
Given a system of four linear equations in four unknowns defined by the matrix equation 

[Aij] [Xi] = [Pi] , 

this program uses Cholewski's method to determine the X^'s. 

70408 - CONVOLUTION INTEGRAL WITH PLOT 

This program evaluates and plots y(t), the convolution of e(t) and h(t). Mathematically 

t 

y(t) = / 6 (T)h(t- r)dT . 
o 

70409 - NUMERICAL INTEGRATION USING SIMPSON'S RULE WHEN f(x) IS KNOWN 

The specific f(x) is programmed into the calculator by the user and is then used by the general 
solution to evaluate the integral. Execution time is dependent on the number of panels. Note 
f(x) should not have any singularities in the integration interval. 

X 

70410 - INTEGRAL OF THE FORM: F(x) = J i (u) du WITH PLOT 

This program calculates the integral of a known function f(u) between any lower limit A and 
a successively incremented upper limit X. Simpson's rule is used to perform the integration. 
A special application of this program is when f(u) is a probability density function. F(x) then 
represents the cumulative distribution function. 

70411 - MAX - MIN OF Z = Z(X, Y) 

This program determines the approximate range of a function Z of two independent variables 
X and Y given a range for X and Y. This program can be used in conjunction with Program 
09100-70412, PLOT OF Z = Z(X, Y). 

70412 - PLOT OF Z = Z(X, Y) 

Given a function Z of two independent variables X and Y, this program creates a three 
dimensional plot over a prescribed range of X and Y. 

STATISTICS 09100-70800 

70801 - MEAN AND STANDARD DEVIATION 

Calculates the mean and standard deviation of n data points . 

70802 - STANDARD DEVIATION AND MEAN OF GROUPED DATA 

Calculates the mean and standard deviation of data points of certain frequencies. 

70803 - LINEAR REGRESSION 

Calculates the best fit of a set of data points to the line y = ax + b, i. e. , the program computes 
the estimates a and b. It also gives the correlation coefficient r. 

70804 - NORMAL PROBABILITY INTEGRAL 
Evaluates the integral under the normal density function. 

70805 - - CHI SQUARE DISTRIBUTION 2 
Calculates the integral of the Chi Square distribution from 0 up to a value of X for a 
given number of degrees of freedom. 

70806 - - CHI SQUARE EVALUATION EXPECTED VALUES EQUAL (Ej = E) 
Chi square calculation where the expected value of each observation is equal. 

70808 - X^ - CHI SQUARE EVALUATION EXPECTED VALUES UNEQUAL (E^ ^ Ej) 

Chi square calculation where the expected values of the observations are not necessarily equal. 

70811 - LEAST SQUARES FIT-POWER CURVE 

Calculates coefficients fitting data points (xj, y^) to an equation of the form: y = ax^ 



STATISTICS (CON'T) 



70812 - LEAST SQUARES FIT- EXPONENTIAL 

Calculates coefficients fitting data points (xi, yj) to an equation of the form: y = ae"^ 

70813 - POISSON DENSITY 

Calculates the various summations associated with the Poisson density to give a probability 
based on an input parameter and summation endpoints. 

70816 - RANDOM NUMBER GENERATOR 

Random numbers (RN) in the range 0 < RN < 1 are calculated; more than 10,000 random numbers 
may be generated before any previous value is repeated. 

70901 - MULTIPLE LINEAR REGRESSIONS 

Given a set of data points (X^, Zj), this program determines the coefficients of 
the linear equation 

Z = a.Q + Si-jX + a2Y 

70902 - WEIBULL DISTRIBUTION PARAMETER CALCULATION FOR FAILURE DATA 
Calculates the parameters for the Weibull distribution and thus estimates of times to failure 
percentages may be made. 

70903 - NON-LINEAR REGRESSION - LEAST SQUARES PARABOLA 
Calculates coefficients fitting data points (xj, y^) to an equation of the form: 

y = aQ + a-j^x + a2X^ 

70904 - NORMAL (GAUSSIAN) CURVE PLOT 

Given mean (M) and variance cr ^ , this program generates a normal curve given by 

. -(X- M)^ 

y --7= e 20-2 
crv 27r 

This program can be used with Program 70905, Histogram Generation, 

70905 - HISTOGRAM GENERATION WITH PLOT 

This program generates and plots a histogram of ten windows given a set of positive numbers. 
The mean M and variance cr 2 of the data set are computed and stored for use by Program 70904, 
NORMAL CURVE PLOT. 

70906 - HISTOGRAM GENERATION 

This program generates a histogram table of ten windows given a data set of positive numbers. 
In addition it determines the mean M and the variance cr 2 of the data set. 

70907 - ONE WAY ANALYSIS OF VARIANCE 

This program separates the total variance in a table of data into that due to chance 

and that due to differences between the population means underlying each column of sample data. 

70908 - F DISTRIBUTION 

This program evaluates the F distribution density function for given values of F, V^^, and V2. 

70909 - TWO WAY ANALYSIS OF VARIANCE (m X 4) 

This program analyses the total statistical variance in a table of data by separating the total 
variance into two parts, the variance among rows, and the variance between columns. These 
variances are then compared to the variance due to random influence. 

70910 - TWO WAY ANALYSIS OF VARIANCE WITH REPLICATES 

This program analyses the total statistical variance of a table of data by separating the total 
variance into three parts; the variance among rows, the variance between columns, and the 
variance due to interaction. 



ELECTRONICS 09100-71000 



71001 - TCHEBYSHEFF FILTER DESIGN 

Calculates component values for Tchebysheff low pass filters with equal terminations. 

71003 - BUTTERWORTH FILTER DESIGN 
Calculates component values for Butterworth low pass filters between equal terminations. 

71004 - MINIMUM LOSS PADS 
Calculates resistive minimum loss pad and gives resistor values and loss in dB. 

71005 - TCHEBYSHEFF EVALUATION 
Used to determine filter order or the frequency response of a particular Tchebysheff filter. 

71006 - ATTENUATOR PADS T OR H 
Calculates resistor values for either T or 11 pads. 

71007 - BAND PASS FILTER DESIGN 
Calculates ideal component values and evaluates the frequency response by the image parameter 
method for a band pass filter. 

71008 - STUB MATCHED TRANSMISSION LINE 
Calculates the distance from a load to a point where a shorted stub is to be placed and the length 
of the stub to match a transmission line. 

71009 - TRANSMISSION LINE 
Calculates the impedance at any point on a transmission line either toward the generator or 
toward the load, the voltage reflection (magnitude and phase) and the VSWR on the line. 

71010 - WYE -►DELTA AND/OR DELTA -►WYE CONVERSION 
Transforms impedances wired in delta configuration to the equivalent wye configuration and 
vice-versa. Loop and nodal analyses are used to perform the transformations. 

71501 - TCHEBYSHEFF FILTER DESIGN - FINITE TERMINATIONS 
Calculates component values for Tchebysheff low pass filters with finite terminations 
(equal or unequal). 

71502 - S PARAMETER TO Y PARAMETER CONVERSION 
Converts S parameters for linear (active or passive) circuits to Y parameters. 

71503 - FREQUENCY RESPONSE FROM POLES AND ZEROES WITH PLOT 
Given the zeroes and poles of a complex function f(s), the magnitude and phase response 
is computed over a specified frequency range. The program can consider any combination 
of six poles and zeroes of the form r^ = + jw. 

MECHANICS 09100-72000 

72002 - TRANSCENDENTAL EQUATION (ARC INVOLUTE IN GEAR DESIGN) 
Solves for the angle </> in radians in the following expression 

INV (<^) = TAN <^ - 4> 

where the INV (<^) is given. 1x10"'^'^ < < 1x10^ ( <^ is in radians). 

72003 - SPRING DESIGN - COMPRESSION AND EXTENSION SPRINGS 

This program calculates one of three variables (d - diameter of wire, N - number of turns of 
wire, and D - mean coil diameter), the remaining two being set, and calculates the maximum 
allowable stress. Other inputs are set to predetermined values. 

72004 - STRESS AND STRAIN FROM A RECTANGULAR ROSETTE 

Calculates the principal strains and stresses given rectangular rosette and strain gauge inputs. 

72501 - PROPERTIES OF AREAS 

This program determines the properties of any area which can be approximated by 
a set of rectangles. The properties determined are: 

1. Area 3. Distances from axes to the centroid 

2. Moments of inertia 4o Products of inertia about the centroid 



BUSINESS 09100-73000 



73001 - ANNUAL INTEREST 

Calculates i that satisfies the equation: 

Pi(l + i)" 

R = 

(1 - 1 

73008 - AMORTIZED LOAN 

Calculates the monthly payment on the principal of a loan for a specified term, the amount of 
payments toward principal and interest, and a running total of the amount of payments toward 
principal and interest to date. 

73101 - RETURN ON INVESTMENT FOR UP TO 16 VARYING CASH FLOWS 
This program solves for the value of interest per period for up to sixteen 
varying cash flows. The program solves the equation: 

16 

PV (Present Value) = Z 

k = 1 (1 + i)k 

where Cj^ represents a cash flow per period. 

PHYSICS 09100-73200 

73202 - FLUX DENSITY 

Calculates the flxix density along an axis of a circular loop for a specified radius r, current I, 
and distance d. 




73203 - VENTURI METER 

Calculates flow Q by using Bernoulli's equation. 

73204 - ORBITAL MECHANICS 

Calculates the velocity of a satellite at apogee and perigee and the orbital time in seconds of 
a satellite orbiting a body in space. 



THERMODYNAMICS 09100-73700 

73851 - HEAT TRANSFER THROUGH A MULTILAYERED CYLINDER 

This program calculates the rate of heat flow through a multilayer ed cylinder. 
Both convective and conductive layers are considered. 

73852 - TRANSIENT CONDUCTION IN A SLAB 

Given the initial temperature of a slab and a fluid, this program determines the 
temperature (as a function of time and distance) of the slab as it is immersed into 
the fluid. 

SURVEYING 09100-74000 



74003 - INVERSE TRAVERSE FROM COORDINATES 

Calculates bearing, distance, and quadrant code from end-point coordinates. 



SURVEYING (CON'T) 



74004 - THREE POINT PROBLEM 

Calculates the coordinates of an observer's position given coordinates of three other points and 
two reference angles to the observer's position. 

74101 - TRAVERSE WITH COMPASS RULE ADJUSTMENT OPTION 

Traverses by bearing and distance, calculates coordinates, closure error, total traverse 
distance and precision ratio. The program may then be used to distribute the closure error 
by the Compass Rule. 

74102 - COORDINATE GEOMETRY AND ENCLOSED AREA 

Traverses by bearing and distance and calculates coordinates, enclosed area, and the 
following curve data: 

1. Arc length 3. Central angle in decimal degrees 

2. Chord length 4. Coordinates of tangent points 



STRUCTURES 09100-74200 



74203 - CANTILEVER BEAM - INTERMEDIATE LOAD 
Calculates shear, moment, and deflection. 

74204 - CANTILEVER BEAM - TRIANGULAR LOAD 
Calculates shear, moment, and deflection. 

74205 - COORDINATES OF EQUALLY SPACED POINTS ON A CIRCLE 

Computes the rectangular coordinates of equally spaced points on a circle given the center point 
coordinates, radius and offset angle of the circle, and the number of coordinate points desired 
on the circle. 



FLUID MECHANICS 09100-75000 




75001 - CHE ZY- MANNING EQUATION 

Finds channel flow when channel is circular pipe and flowing full. 



75003 - RECTANGULAR WEIR 

Calculates the rate of fluid flow over a rectangular weir. 

75004 - WATER FLOW IN PIPE 

Calculates the loss factor (f) and the head loss for a pipe of specified dimensions with a 
known flow rate„ 



LIFE SCIENCES 09100-75200 



75201 - RADIOACTIVE DECAY 

Calculates the mass loss between any two times given the half-life, initial mass and present 
mass; displays the decay curve; or calculates the age of the mass based upon the present mass. 

CHEMICAL 09100-75500 

75502 - ELEMENTAL PERCENTAGE AND MOLECULAR WEIGHT - 6 ELEMENT 
Calculates percentages and molecular weight of compounds containing 6 elements or less. 

75503 - CHN ANALYSIS [K VALUES] 

Calculates K values given C, H and N, blank values, and percentages for a known standard. 

75504 - CHN PERCENTAGES 

Given C, H, and N values and using previously calculated K values and known blank values, 
calculates C, H and N percentages. 



o 
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CHEMICAL (CON'T) 



75505 - MOLECULAR WEIGHT BY VPO 

Calculates molecular weight for an unknown based on a series of vapor pressure osmometer (VPO) 
readings at various dilutions by extrapolating a least squares curve fit to infinite dilution. 

75506 - MEMBRANE OSMOMETER 

Determines the number-average molecular weight by extrapolating a least squares curve fit to 
infinite dilution. 

SECONDARY EDUCATION 09100-75800 

75802 - PRIME NUMBERS 

Calculates all prime numbers between any two numbers. 

75901 - CONIC SECTION DETERMINATION WITH PLOT 

Given the generating angle of a cone, /? , and the intersection angle with a plane, a , 
this program determines and plots the conic section. 

MISCELLANEOUS 09100-76000 

76003 - NAVIGATIONAL COURSE CALCULATION 

Calculates course settings for one or more adjoining legs of a proposed journey, the length of 
each leg, and the total distance covered on completion of the journey. 

76004 - CIRCLE DETERMINED BY THREE POINTS 

Calculates the radius and center point (in rectangular coordinates) of the circle defined by 
three given points. 

76005 - AREA OF A RECTILINEAR SURFACE POLYGON 

Calculates the area of any rectilinear polygon given the rectangular coordinates of the vertices. 

76501 - DIAGNOSTIC (EXERCISER) 

The program exercises each calculator operation and memory location with the 
exception of the FMT, PRINT, and error conditions. 
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LJ 
X 



9100B MATHEMATICS PROGRAM LISTING 



LU 

^ 70001 - n! 

^ Calculates n ! for positive integer n. (n < 70) 

70002 - POLYNOMIAL EVALUATION 
Q Evaluates polynomials of the form: 

a: 

< f(z) = Cnz" + C^_^z''--^ + . . . + Ciz + Cq 
U 

< for complex C^ , i=l , . . „ , n and complex z. 
£L 

h- 70003 - NUMERICAL INTEGRATION USING SIMPSON'S ONE -THIRD RULE 

Uses Simpson's rule to obtain the area under a curve. The equation used is: 



A = I (Yq + 4Yi Y2) 



LiJ 

^ 70006 - 1st ORDER DIFFERENTIAL EQUATIONS 

^ Solves differential equations of the form: 

= f(x, y) 

Q 

< 70007 - RAISINGA NUMBER TO A POWER 

^ Solves the equation: 

U 



y^^ = f(x, y, y') 



Z3 = Z-j^^ where Zi = + jYj i = 1, 2, 3 

70008 - 2nd ORDER DIFFERENTIAL EQUATIONS 
[jj Solves differential equations of the form: 

LJ 
X 

5 70009 - QUADRATIC EQUATION 

Solves ax^ + bx + c = 0 for the roots. 

2 70010 - FINITE DIFFERENCE INTERPOLATION USING GAUSS'S BACKWARD FORMULA 

< Uses Gauss's backward formula for interpolation in tabular data with equal abscissa spacing. 

^ The program fits a cubic equation through the tabular data. 

< 

Q- 70011 - CUBIC EQUATION 

[H Solves x^ + px^ + qx + r = 0 for the real and complex roots. 

LiJ 

^ 70013 - FACTORS OF n 

^ Gives all factors of an integer n. 

X 

70014 - REAL ROOTS OF f(x) 
^ Calculates real roots of f(x) by starting from Xq and incrementing until f(x) changes sign, 

then converges on the root. f(x) is programmed in by the user. 

g 70016 - SIMULTANEOUS SOLUTION OF TWO EQUATIONS IN TWO UNKNOWNS 

<; The program solves two independent equations of the form: 

^ ax + by = e 

1? cx + dy = f 



X and y are the unknowns to be foimd. 



MATHEMATICS (CON'T) 

70017 - n! (n < 10^^) 

Calculates n ! for positive integer n. 

70021 - POLYNOMIAL EVALUATION (1 < n < 10) 
Repeatedly evaluates for a given x, a real polynomial of the form: 

f(x) = Aj^x"^ + Ajj_ix^~^ • . • Aj^x + Aq for 1 < n < 10 

70022 - 3 X 3 MATRIX INVERSION OR SIMULTANEOUS SOLUTION OF THREE EQUATIONS 

IN THREE UNKNOWNS 
Solves three linear independent equations in three unknowns simultaneously or inverts a 
3x3 matrix. 

70023 - FOURIER SERIES 

Calculates the Fourier Series coefficients that represent a periodic time function f(t) with period 
The specific f(t) is programmed into the calculator by the user. 

70024 - GAMMA FUNCTION . 
Evaluates the gamma function r(i/) for 0 <v< 10^ where r(i^) = / e"tt " dt 

0 

70025 - BESSEL FUNCTION 

Calculates the value of the Bessel function Jj^(x) of the first kind of integer order n where 

JnW -{2) J- k! (n + k)! 



9100B ONLY 

70401 - HYPERGEOMETRIC SERIES EXPANSION 

Given a, b, and c, this program determines the coefficients of the hjrpergeometric 
series F(a, b, c; X), This program is useful in solving Gauss's differential equation. 

70402 - (3 X 3) MATRIX MULTIPLICATION 

Given two (3x3) matrices A and B, this program determines the product matrix C = A - B . 

70403 - ROOTS OF A 4th DEGREE POLYNOMIAL 

This program determines the roots (real and complex) of a 4th degree polynomial of the form 

X^ + ajX^ + 2^2^ + a3X + a4 
where is real . 

70404 - NUMERICAL SOLUTION OF TWO FIRST ORDER DIFFERENTIAL EQUATIONS 
This program may be used to solve a wide variety of pairs of first order differential 
equations of the form 

% = f(X,Y,Z), 



^ = g(X,Y,Z). 

70405 - ROOTS OF A 6th DEGREE POLYNOMIAL 

The program determines the roots (real and complex) of a 6th degree polynomial of the form 

X^ + a^X^ + a2X^ + a3X^ + a4X^ + asX + ag 



where is real . 



MATHEMATICS (CON'T) 9100B ONLY 



70406 - CHARACTERISTIC EQUATION OF A (3 X 3) MATRIX AND EIGENVALUE DETERMINATION 
Given a (3 x 3) matrix A, this program computes the characteristic equation 

X^+p X^ + q X + r = 0 

and then determines the eigenvalues by using Program 09100-70011 as a Sub Program . 

70407 - SIMULTANEOUS SOLUTION OF FOUR LINEAR EQUATIONS IN FOUR UNKNOWNS 
Given a system of four linear equations in four unknowns defined by the matrix equation 

[Aij] [Xi] = [Pi]^ 
this program uses Cholewski's method to determine the X^'s. 

70408 - CONVOLUTION INTEGRAL WITH PLOT 

This program evaluates and plots y(t), the convolution of e(t) and h(t). Mathematically 

t 

y(t) = / e (r)h(t- r)dr . 
o 

70409 - NUMERICAL INTEGRATION USING SIMPSON'S RULE WHEN f (x) IS KNOWN 

The specific f(x) is programmed into the calculator by the user and is then used by the general 
solution to evaluate the integraL Execution time is dependent on the number of panels. Note 
f(x) should not have any singularities in the integration interval. 

X 

70410 - INTEGRAL OF THE FORM: F(x) = J f (u) du WITH PLOT 

This program calculates the integral of a known function f(u) between any lower limit A and 
a successively incremented upper limit X. Simpson's rule is used to perform the integration. 
A special application of this program is when f(u) is a probability density function. F(x) then 
represents the cumulative distribution function. 

70411 - MAX - Mm OF Z = Z(X, Y) 

This program determines the approximate range of a function Z of two independent variables 
X and Y given a range for X and Y. This program can be used in conjunction with Program 
09100-70412, PLOT OF Z = Z(X, Y). 

70412 - PLOT OF Z = Z(X, Y) 

Given a function Z of two independent variables X and Y, this program creates a three 
dimensional plot over a prescribed range of X and Y. 
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EXAMPLES 



USER INSTRUCTIONS 



o: 
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1 

720 



ENTER PROGRAM (Starting Address is 0-0) 
PRESS: GO TO (0) (0) [or ENd] 
•PRESS: CONTINUE 
ENTER DATA: n ►X 



PRESS: CONTINUE 
DISPLAY 
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POLYNOMIAL EVALUATION 



LlI 
X 



a: 
< 

< 
a. 



This program evaluates polynomials of the form 

f(Z)=Cn + Cn-iZ"'^ -+- ■•+ Ci Z + Cq 



for complex Cj , i =0,1,' '',11 and complex Z. 



H 
LiJ 
_J 

<: 

LlI 
X 
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09100-70002 



EXAMPLES 



P(Z) = (3 + 4i)z2 + (-2 + i)zl + (1 - i) 
for Z = 2 + i ReZ = 2 ImZ = 1 

P(2 + i) = - 11 + 23i 
P(Z) = 49.6Z4 + 18Z3 + 52.4Z2+8Z+12.8 
for Z = i ReZ = 0 ImZ = 1 

P(i) = 10 - lOi 

GENERAL FORM 
f(Z) = CjiZ" + Cn_iZ^-l + . . . + CjZ + Cq 



USER INSTRUCTIONS 



ENTER PROGRAM (Starting Address is 0-0) 
PRESS: GO TO (0) (0) [or ENd] 
— PRESS: CONTINUE 
DISPLAY 

f ~ N 

0 Z 

0 Y 

1 X 

V / 

ENTER DATA: n — ► Z, Im Z — ^ Y, 
Re Z — ^ X 

I — ►PRESS: CONTINUE 

DISPLAY 

r~ ^ >| 

0 z 

0 Y 

nj Z 

V. > 

is an indicator or 
coefficient entry number. 
When nj = 0 enter Cq. 

ENTER DATA: ImCni Y, 

ReCrii — ^ ^ 

PRESS: CONTINUE 
DISPLAY 

r~ — \ 

0 Z 

ImP(Z) Y 

ReP(Z) X 

V ) 
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PART NO. 
09100-70003 



NUMERICAL INTEGl^TION USING 
SIMPSON'S ONE -THIRD RULE 



This program evaluates the area under a curve represented by discrete points. The equation used is Simpson's 
One -Third Rule ie., ^ 



whe] 



Xo<C < X2 

Graphically the integration is performed over two panels (each of width h) as shown below 




X 



The application of Simpson's Rule over 2n panels between Xq= Q , and X2n~ b gives 



f f(x)dx= 4 (Yo+4Y,+2Y2+4Y3+2Y4+-+4Yn., + Yn) 



' (b-a)hV*'(f) 



180 



where a<C< b andf^^\^) is the fourth derivative of f(x) 
evaluated at ^ . 

Thus to use the program divide the abscissa into 2n panels. (The method requires an even nxmiber of panels of 
width h. ) Since the error term is neglected, choose h (the distance between points) such that the error term 

is small. Usually h <<1 whenf^^KC) is unknown. 



Reference: Numerical Analysis 
by Kaiser S. Kunz 

McGraw - Hill Book Co. , Inc. 1957 
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UJ 
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09100-70003 

USER INSTRUCTIONS 



EXAMPLES 



ENTER PROGRAM (Starting Address is 0 -0) 
PRESS: GO TO (0) (0) [or ENd] 
PRESS: CONTINUE 
DISPLAY 




ENTER DATA: h — 
PRESS: CONTINUE 
DISPLAY 




ENTER DATA: X. 



X 



PRESS: CONTINUE 
DISPLAY 




Note: Subsequent 
Xj's are calculated 
from Xq and h and 
are not entered. 



A - the area shows every other time 
starting after third y entry 

(Corresponds to calcu- 
ENTER DATA: Yj — X latedXi displayed in Y) 

PRESS: CONTINUE (To restart a new prob- 
lem PRESS: END, 
PRESS: CONTINUE) 



To Change Increment (new h) 

This can only be done if area or Z register is 
blank 



ENTER DATA: Yi - 
PRESS: SET FLAG 
PRESS: CONTINUE 
DISPLAY 



X 



Z 
Y 
X 



ENTER DATA: new h— ► X 

PRESS: CONTINUE (Program branches to area 
display and ordinate entry. Proceed as 
before. ) 



INCREMENT CONSTANT 
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h = .25 
J f(x)dx= 16. 58 
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. 5 



/^(x)dx = 
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DISPLAY 
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DISPLAY 
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CORRESPONDING 
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1st ORDER DIFFERENTIAL EQUATIONS 



UJ 
X 



Q 

< 
< 

CL 



UJ 



LxJ 
X 



Q 
< 



This program may be used to solve a wide variety of first order (homogenous or non -homogenous, linear or non- 
linear) differential equations of the form w/_ x/v v^ 

Y - f ( X, Y j 

The solution is a numerical solution which calculates for Xj^. The X values are closely spaced with incre- 
ment h over the desired range. Specifically the solution used in this program is a Runge-Kutta Method (third- 
order) which uses the equations, 

Yi+i=Yi+ l(p+2q + 2r + s) 

where p=hf(Xi,Yi) 

q = hf(Xj + -|-, Yi+|-) 

r=hf(Xi + |-, Yj+ I") 

s=hf(Xi + h, Yj+r) 
h=Xi + i-Xi 



UJ 

_i 

Ul 
X 



Q 
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(J 
< 



UJ 
_l 

UJ 
X 



Q 
< 



UJ 



Reference: Numerical Analysis 
by Kaiser S. Kunz 



McGraw-Hill Book Co. Inc. 1957 



UJ 
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09100-70006 

USER INSTRUCTIONS 



EXAMPLES 



ENTER PROGRAM (Starting Address is 0 -0) 

PRESS: (GO TO) (4) (a) 

Place mode switch to PROGRAM 

Starting at 4 -a, enter the program steps which 
take the independent variable from the X re- 
gister, the dependent variable from the Y re- 
gister and calculate f(X, Y). Place f(X, Y)in 
the Y register and exit to location 8-b. Note 
there is a maximum of 57 steps (4 -a through 
8 -a) available for storing and positioning f(X, Y). 

Place mode switch to RUN 

PRESS: GO TO (0) (0) [or ENd] 

PRESS: CONTINUE 

ENTER DATA: (Initial conditions and incre- 
ment) 

h Z, Yq Y, Xq X 
PRESS: CONTINUE 

The Calculator will display answers at every 
increment of the independent variable in the 
form 




To stop the solution at the next increment de- 
press PAUSE until display. To restart press 
CONTINUE. 

To start from a new set of initial conditions 
PRESS: STOP 

PRESS: GO TO (0) (0) [or ENd] 
PRESS: CONTINUE 

Enter initial conditions and increment as be- 
fore. 



R 



f(t)( 



-o + 



Vo(0) = 0 
to =0 
h = .01 



-o - 



f(t) 




o - 



+ i2 + ig = 0 



0 



f(t) Vo(t) pdVo(t)^n ^^iti^l 

R " R " ^ dt " ConditionsJ Vo(0) - 0 

dVo(t) 
dt 



Vo(t) ^ f(t)_ 
CR CR 



Increment h 



01 



Let Vo = 1 V, C = 1 F, R = 1 and ti = 4 sec . 
The equation becomes 



= - Vo(t) 4-1; t < 4 



dVo(t) ^ 
dt 



- Vo(t); t > 4 



The program steps that form Vq = f (t, Vq) appear on 
Page 1. See User Instructions. 
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RAISING A NUMBER TO A POWER 



-7 -7^2 

This program solves the equation Z.3 = Z. ^ 

where and Z2 are given. Zj maybe real or cohiplex ie. Zj=Xj+jYj 1=1, 2, 3 



The definitions 



lnZ = ln(yx2+Y2)+ {-w <d<'7r,^X^+ > o) 



are used. 

The following equations are programmed 



=e ( X2 + j Y2 )( Iny X,2 + Yi2 + j ) 



15 
= 6" 



jSIN ( Ygln^Xi^+yZ + Xa^, ) } 



Reference: Complex Variable and Applications 
by Churchill 

McGraw-Hill 1960 
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USER INSTRUCTIONS 



EXAMPLES 



ENTER PROGRAM (Starting Address is 0 -0) 
SET: I I RADIAN S | 

] 



PRESS: GO TO (0) (0) [ 
PRESS: CONTINUE 
DISPLAY 



or END 




ENTER DATA: ■ 

PRESS: CONTINUE 
DISPLAY 



Y, Xi 




ENTER DATA: Y2 Y, X2 

PRESS: CONTINUE 
DISPLAY 



X 




Z3=(Xi4-jYi)^^2+iY2) 
(2 + j2) 



1) Z3=fi> 
X2 =2 



Yi=0 
Y2 =2 



Z3 = -3.075 + j6. 719 



2) Z3 = (2 + j3) 



. 5 



Xi = 



Xo = 



2 

. 5 



Y2 =0 



Z3 = 1.674 + j.896 



RESULT: Z3 = X3 + jY3 
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DISPLAY 1 


TO INDICATE 


FIRST ENTRY 




X, 


Y, 


0 


ENTER 




J= 


1 










i 



X, AND Y, 



STORE Z 



02 DISPLAY 2 

41 
23 
16 

I 

40 



STORE 



TO INDICATE 



Y. 



SECOND ENTR^ 



ENTER X^ AND Yg 



^ALCULArjE^^^fH^/x^ 



24 



CALCULAi|E X2 



I'^ + Yr AND ;X2^i 



36 ) 



CALCULATE \ Iny^ 



CALCULATi: Y2^ 




+ Y. 
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2 



3 



cosx 



ROLL ^ 



Coca 



31 



27 



73 



31 



^^^GALGytAT 



AND SIN( Y2 Inj/X,2 + Yi^+XgfiT 



4 «injc 



70 



30 



74 



36 



ROLL ^ 



22 



X 

0 



36 
00 



CALCULATE X3 AND Y 



ROLL y\f i 31 

I 

END i 46 
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2nd ORDER DIFFERENTIAL EQUATIONS 



1x1 
X 

gj This program may be used to solve a wide variety of second order differential equations of the form 

Q Y"=f(X,Y,Y') 

< The solution is a numerical solution which calculates Yj and Yj for a set of closely spaced values of Xj over 

^ the desired range. The method used employs a Taylor series around the point Xj. The equations used are 

< 

I Yi+1 = Yi +hYi'+-^'(4Yi"-YiiV 

Lxl 
_l 

^ u4 

u -h (4) 

X where the first term of the error is — — Y 

§ and 

g Yi;, = Y/ + i(5YiVl6Y/:,-H23Y/') 

^ where the first term of the error is y^^^ 

^ 8 



where h = X ~ X 



^ In order to start the solution the equations Y_'!j = Yq ' ~ h * Yq" with error of ~ h Y 



and with error of — d\\ T are used. 



Q Xq, Yq, and Yq' are known from the boundary conditions. Yq" is calculated from f(XQ, Yq, Yq' ). 

a: Yq" is obtained by differentiating f(X, Y, Y' ) and substituting in values Xq, Yq, Yq' , and Yq" . These 

< initial conditions are required input. 

^ In cases where an increasing exponential predominates it may be necessary to reverse the direction of the in- 

Ol dependent variable. This may be done simply by making h negative. 

h- 
H- 
UJ 
_J 

^ 
Lxl 
X 

Q 

cr 
< 

u 



Lxl 
_l 

UJ 
X 
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USER INSTRUCTIONS 



EXAMPLES 



ENTER PROGRAM (Starting Address is 0 -0) 

PRESS: (GO TO) (5) (a) 

PLACE MODE SWITCH TO PROGRAM 

The general program has a blank section for 
storing your specific differential equation. 
Starting at 5-0, enter the program steps which 
take the independent variable from the b regis- 
ter, the dependent variable from the f regis- 
ter, and the derivative of the dependent vari- 
able in thee register, and calculate f(X, Y, Y'). 
Place f(X, Y, Y' ) in the Y register and exit 
to location 9-3. Note there is a maximum of 
59 steps (5-0 through 9-2) available for storing 
and positioning f(X, Y, Y' ). 

PLACE MODE SWITCH TO RUN 
PRESS: GO TO (0) (0) [or ENd] 
PRESS: CONTINUE 
DISPLAY 




ENTER DATA: Yq" 
h - 

PRESS: CONTINUE 
DISPLAY 



Z, Y 



/// 



Y, 



X 




ENTER DATA 



PRESS: CONTINUE 



Y, 



The Calculator will display answers at every 
increment of the independent variable in the 
form 




To stop the solution at the next increment de- 
press PAUSE until display. To restart de- 
press CONTINUE. 



To start from a new set of initial conditions 

•] 



PRESS: STOP . 
PRESS: GO TO (0) (0) or END 
•PRESS: CONTINUE 



FoSINcut 




M 



MX +C |X| X +KX = Fo SIN wt 

X(0) = 10 C=.08 cu=477 m=.l 
X(0) = 0 Fq = 100 K = 25 h = .001 

X = - . 8 |x| X - 250X + 1000 SIN 47rt 
X(0) = -2500 

X = - 1. 6 fx I X - 250X + 400077 COS 47rt 
X(0) = 400077 

NOTE: SET | | RADIANS] 

The program steps that form X = f(t, X, X) appear on 
Page 1. See User Instructions. 



Fn = 100 



X(0) = IO 
X(0)= 0 



t 


X 


.0 


10 


.1 


6.283 


.2 


3.871 


.3 


1.269 


.4 


-1.958 


.5 


-3.24 


.6 


-.185 


.7 


2.755 


.8 


1.927 


.9 


- 1.528 


1.0 


- 3.07 




Stet 



6 



E 

X 

8 

CHG SIGN 

X 

f 

2 
5 
0 

CHG SIGN 

V 

+ 

4 

TT 
X 

X 



ENTER EXP 

3 

x"' 

+ 

GOTO( )( ) 



I 2 

27 
55 
36 
21 
10 
32 
36 
15 
27 
02 
05 
00 
32 
36 
25 
33 
04 
27 
56 
36 
I 4 
36 
25 
70 
27 
26" 
03 
"36 
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X 



X 

w 

XI XI 



-.8 



X 



.8|X|X 



X 




X 



-8|X|X 



CALCULATE 



-250X 



-.8|X|X 



■.8|xrX^250X" 



77 



477 



47rt 



4 77t -8|X|X-250X 



SIN 477t 



1000 



1000 SIN 47rt 



2 5 1000 SIN 477t 



33 



44 



03 



eAtCtlLiATE 



iVI 



-.8|X|X-250X 



SIN 477t -8|X|X-250X 



GALC^^zATE 



Fq SIIn tut 



-8|X|X-250X 

X 



Gy^LGUfcATE 



EXIT 



0 9r3 
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f 
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33 




1 3 


X 


36 
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01 


2 


1 02 


d 


35 
I7~" 




, 27 




04 


X 


36 


r 


16 




1 34 




1 3 


/ I X 


36 


6 


. 06 




35 




1 1 2 

1 i 




33 




1 3 


: X 


36 ' 


ACC + 


25 

; 60 

I s 


yt^ ) 


24 




14 


a 


s 1 o : 


+ 


33 




40 r 


b 


1 I4_ 


' ' CONTINUE 


('47 . 
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Ccdit 



PIspfay 

y 



^ 1 

:2 

o 

! ? 

! 

Gi 



' 5 

i - 
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QUADRATIC EQUATION 



This program calculates the two roots and X2 of the equation 

^ ax2+bX+c=0 Qj^O 

The equation used to calculate the roots is: 
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Q 

< 
< 

Q. 



^ Denotes Revision 

_i 

UJ 
X 

Pi 
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USER INSTRUCTIONS 



EXAMPLES 



ENTER PROGRAM (Starting Address is 0-0) 
PRESS: GO TO (0) (0) [or ENd] 
PRESS: CONTINUE 

ENTER DATA: a — ►Z, b — c — •►X 

PRESS: CONTINUE 
DISPLAY 




complex 
roots: 



Im(X2) Z 

lm{X{) Y 

Re(Xi and X2) X 



(Note Z contains zero) 



GENERAL FORM 
aX^ + bX + c = 0 



X^ + X + 1.25 = 0 

Xg = - .5+il 
Xi = - .5 - jl 



2X'^ + 5X + 3 



X2 - 
X. = 



1. 5 
1.0 



+4 
X. 



0 
j2 



•j2 
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f 



" ro 
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4 



IF x>y 

9 ^ 



CHG SIGN 
ROLL ^ 



2r\ 



ROLL ^ 



CLEAR 



ROLL 4^ 



STOP 



04 : 



53 I 
02 " 
I I 



IF 



4aj 



25 
76 



27 



32 
22 
33 



BRANCH HE:RE IF 



2" -^=0, SOLVE FOR Xi,X2=- 



iF:r2--^ ^0. SOLVE for complex roots 

— — a 



^2 



22 



33 



37 
31 



CALCULAT E X^,X£--^^ 



2p 



>0 




44 1 ^ ■ h 




BRANCH HERE IF 



4^ 



GALCULATt~^^)C-:^=^-±4 



REAL ROOTS - 
COMPLEX ROOTS 



} 



DISPLAY 



4a' 
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T. 
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< 

CL 



1 



< 

u 

a. 



hi 
X 



n 

£1. 



i 



_0 

1 



Key 



ROLL 



22 



GOTO( )( ) 44 

2 02 ^ 



3 

5 

i 

3 

A 

r 



CLEAR X 



ROLL 4^ 



I GOTO( )( ) 



END 



05_ 

2? 
37 



44 



02 



05_ 

46 



Display 
V 



T 



BRANCH HERE IF 



^5>^t£ytArT:{L — )^ 



7 I 



T— 
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< 




Q 

< 

(J 
< 
a. 

h- 
I- 

LlI 



UJ 
X 




Q 
< 

o 
< 



I- 
UJ 



1x1 





FINITE DIFFERENCE INTERPOLATION 
USING GAUSS'S BACKWARD FORMULA 



June 1969 
PART NO. 
09100-70010 



This program interpolates for data points in the region of tabulated data for uniformly spaced abscissas, with 
spacing h. The equation used is the backward -interpolation formula of Gauss which uses four pairs of data 
points and sets up the polynomial for cubic interpolation. 

The equation used is: 

A Y = + u SY_i/2 + ^; (u + 1) S^Y^ + f : + ^^^^^(^ " ^^^-1/2 

The difference table is: 



Y - Y 
2 M Yg - 2Y2 + Y^ 

■Y3 - _ + Y2 " ^^3 ^ ^^2 " ^1 

^4 " ^3 



u 


X 


Y 


-2 


^1 


Yi 


-1 


^2 


^2 


0 


^3 




1 


^4 


Y4 



Where 8y_^/2 = ^3 - Yg 

= Y4-2Y3.Y2 

- - 3Y3 . 3Y2 - Y^ 



X - X3 

and u = — 1 



Reference: Introduction to Numerical Analysis 
by F.B. Hildebrand 

McGraw-Hill 1956 



A Denotes Revision 
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USER INSTRUCTIONS 



EXAMPLES 



ENTER PROGRAM (Starting address is 0 -0) 
PRESS: GO TO (0) (0) [or ENd] 



PRESS: CONTINUE 
DISPLAY 



z 

Y 
X 



ENTER DATA: Y^ - 

PRESS: CONTINUE 
DISPLAY 



Z, Y, 



Y, Y, 




ENTER DATA: Y^ Z, Xg 

PRESS: CONTINUE 
DISPLAY 



Y, h 




ENTER DATA: X -►X 
PRESS: CONTINUE 
DISPLAY 




TO RESTART PRESS: END 

PRESS: CONTINUE 



GENERAL FORM: Y(X) 





i 


^i 


Y. 










1 






1 


-1 


-1 


Y(3. 1) 




2 


1 


1 


Y^2 ^\ 




3 


3 


19 


Y(-2) 




4 


5 


lUl 




n — 


2 








i 


X. 


Y. 








1 


1 




1 




0 


-7 




2 




. 5 


-6.75 


Y(.7) 


3 




1 


-5 


Y(1.2) 


4 


1 


. 5 


- .25 





10.375 
-11.000 



6.314 
3. 544 
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Q 



X 

CLEAR O: I 37 
ROLL \^ 31 « 



I 36 
02 

i 3^ 
16 



CALCULATE ;2^S^Y; 



± 
+ 



33 

I 7 
33 



FORM PARTIAL SUM 



, C' 




, 25 1 

1 


1 h 




24 " 



I I 



e^teytATE — FiMAb-SUf^-^ 



^DfSPLAY-^ 



7 j 0 I STOP 4 I 

GOTO! )( ) 44 



Y(X) 





3 


03 j 




3 


, 03 




END 


46 1 
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p> BRANCH F 


OR X ENTRY 
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Display Roots 
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USER INSTRUCTIONS 



EXAMPLES 



ENTER PROGRAM (Starting address is 0 - 0) 
PRESS: GO TO (0) (0) [or ENd] 
PRESS: CONTINUE 

ENTER DATA: p -^Z, q r-^X 

PRESS: CONTINUE 

DISPLAY: 



3 real roots 




1 real 

2 complex 
roots 



Z 
Y 
X 



PRESS: CONTINUE 
DISPLAY : 




General Form 



Example 1 



X^ + pX^ + qX + r = 0 



X^ + 3X^ + 3X + 1 



X3 = -l 
X2 = -l 
X^ = -l 



Example 2 



X^ - X^ + X - 1 



X3=l 
Xj, Xg = ±i 



complex 
roots: 



(Xg)- Z 



Im(X^ and Xg)- Y 
Re(Xj and X2)-X 
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vJssplay 



\ I 
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! 33 
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! 27 


.1, 


2 5 


X 


36 
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1 1 2 
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1 33 




25 


CHG SIGN 


32 


ROLL 4^ 


31 




j 02 


CHG SIGN 


1 32 
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USER INSTRUCTIONS 



EXAMPLES 



ENTER PROGRAM (Starting Address is 0- 0) 
PRESS: GO TO (0) (0) [or ENd] 
PRESS: CONTINUE 
DISPLAY 



Z 
Y 
X 



ENTER DATA: No. to be factored 
DISPLAY 



X 



Z 
Y 
X 



►PRESS: CONTINUE 
DISPLAY 



n 

remaining 
factor 

Factor 



Z 
Y 
X 



FINAL DISPLAY 



n 
1 

Factor 



Z 
Y 
X 



(A) 

n = 50 

Factors are: 2, 5, 5 



(B) 

n = 2.9393939 x 10 

r 

Factors are: 2. 9393939 x 10 
(n is a prime number) 
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0-1 



2-d 



K = f 



Enter X 
X = n 






f = 
K 


-- 1 
= 2 


n 


e 




f 0- 


n/K 



YES 



No. 
1 

Last 
factor 



Z 
Y 

X 



(DISPLAY ) 



2-7 




YES 



2-2 



f = f +2 



NO 



2-8 




YES ^ If 
Flag 




6 > K 

YES 



2-3 



Set 
Flag 



NO 

^ 2-b 



n e 



n - n/K 



4 1-9 



Y Z 

n/K Y 

K X 



( DISPLAY ) 



f =f + 2 



2- c 



Set 
Flag 



^hk^jgllllr 
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step 



Display 



Storage 



CLEAR 



1 1 



STOP 



01 



ACC + 



60 



STORE I 



AND X 



U 



IF x>y 



53 



3 



03 



03 



^lAtettATir 



X 



30 



I 27 



int X 



64 



BRANCH FOR FINAL DISP 



COMPARE 



IF x<y 



a 



ROLL ! 3 I i 



POSITION 



STOP 



G0TO( ){ ) j 44 



0 



8 



K 



0 



_AY 



TO K AND 



A^ACTOR- 



DISPLAY AND 



BRANCH TO CONTINUE FACTORING 



fed 



0 



c 



BRANCH IF 




STORE UNFACTORED PORtflON 



CLEAR X 
ROLL 4^ 



I 37 



06 



IF x>y 



SET FLAG 



CLEAR X 



SET FLAG 



ACC + 



IF FLAG 



60 



CALCULATE f +2 



IF 6>K 



BRANCH WHEN FLAG IS 



>-^CALa^L^^~-M«-^-^ANEM^~R=^ 



SET K=f 



SET 




PAGE 2 



PART NO. 09100-70013 



a 

m 

^ I 

uo 
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Step 



3 ^ .J , GOTO( )( / 



a \ 

r" 

[I 

f. — 
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1 i 

' ' * I 

3 ; 



4._ 
5" 



6' 



8 ' 

3 
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U ' 
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8 



1 



4 



i n T 

rrt 



END 



Display 



44 : 



00 I 



I 7 



27 ? 



01 



BRANCH TO CONTINUE FACTORING 



27 



46 



POSITION 



DISPLAY AND 



LAST FACTOR 



Stoiage 



LAST FACTORj 
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DISPLAY 
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REAL ROOTS OF f(x) 



LlI 
X 



Q 

cr 
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a. 



This program finds the real roots of equations of the form f (x) = 0. The solution evaluates f(x) at a specified 
starting point Xq and at successive x's by replacing x with x + Ax(the initial Ax is also specified by the user). 
When f(x) changes sign, Ax is replaced with -Ax/10. 



The search continues until f(x) is driven to zero. The value of x such that f(x) 
f(x) must change sign for the technique to converge. 



0 is a root of the equation. 



LJ 
_l 

LU 
X 



Q 
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X 
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USER INSTRUCTIONS 



ENTER PROGRAM (Starting Address is 0 - 0 ) 
PRESS: GO TO (0) (0) [or ENd] 

SET: 



PROGRAM 



Starting at (6) (0) enter the program steps 
which take the independent variable from the 
X register and program f(x), (x is also con- 
tained in the d register). Place f(x) is the X 
register and exit to location 0-6. The last 
four steps of the f(x) subroutine should be: 

GO TO 
0 
6 

END 

Note: Registers 6, 7, 8, 9, a, b, c, e, and 
f are available for programming and storage 
of f(x). Register d and the flag are unavailable. 



SET: 



RUN 



PRESS: END 

Store initial conditions (when applicable). 

ENTER: xj — ► X (xj is initial x from which 
search is to begin. ) 

PRESS: CONTINUE 
DISPLAY 



±f (xi_i).f (Xi)- 
f(Xi) ■ 

xi ■ 



Z 
Y 
X 



Note: 

f(xi_l) is random 
the first pass and 
product is mean- 
ingless 




ENTER: Ax— ♦'x. ( A x is the searching 

increment. +Ax searches right, 
- Ax searches left) 



USER INSTRUCTIONS (con't) 



PRESS: CONTINUE 

The real roots of f (x) program successively 
evaluates f(x). 

PAUSE DISPLAY 



±f (xi_i) . f (Xi) 
f (xi) 

X, 



Z 
Y 
X 



The calculation stops when Xj^ is a root, Xj is 
successively replaced by Xj ± Ax, (See flow- 
chart). If calculation is not converging, press: 
PAUSE, press: END and enter a new estimate 
as before. 

TO ENTER A NEW PROBLEM: 
PRESS: END 
PRESS: GO TO (0) (0) 
ENTER NEW DATA AS BEFORE 



EXAMPLES 



1. FIND ROOT OF X = cos x 
SET: 



RADIANS 



ENTER DATA: x^ = 0 
PRESS: END 
PRESS: CONTINUE 
DISPLAY 



(JUNK) 
-1.000 
0 



Z 
Y 
X 



ENTER DATA: x = 0. 1 
PRESS: CONTINUE 
DISPLAY 



(Y contains f(x)) 

(X contains x) 

X 



0 
0 

0.7390851332 



Z 
Y 
X 



(X contains root) 



09100-70014 



EXAMPLES (con't) 



EXAMPLES (con't) 



2. 



y = 



1 + cos TT 



Given the initial x 
condition y = 4, 
find X. 



Ifewrite equation as 

f(x) - y(l + cos x) - TT 

User subroutine assumes y is in a (it will be 
manually entered into a as an initial condition) 



SET: 



RADIANS 



ENTER DATA: y = 4 



X 



PRESS: X->( aJ to satisfy initial condition that 
y is in a. 

PRESS: END 



ENTER DATA: Initial x. = 0 
1 

PRESS: CONTINUE 
DISPLAY 



X 



(JUNK) 
8.00 
0 



Z 
Y 
X 



f (x, 4) in Y 
(x in X ) 



Instead of entering A x, evaluate f (x) at a 
new value x. 



PRESS: END 

ENTER DATA: x. = 1 
1 

PRESS: CONTINUE 
DISPLAY 



X 



(JUNK) 
-5.87 

LO 



Z 
Y 
X 



f (x, 4) in Y 
( X in X ) 



A root has been crossed between f (0) and f (1) 
because f (x) changed sign. Begin search to the 
left by entering 

X = -0.1-»-X 



DISPLAY 



4x 10" 



22 



-2 

4. 868292372 



-11 
-01 



f (x, 4) in Y 

X contains root 



PRESS: CONTINUE 
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Initial Conditions 
Xq in X 



CONTINUE 






2-7 


X + Ax — ► X 


i 


2-4 


Save A x 



^ A/0 


SET FLAG 











' 0-1 




X -^d 










Find f (x) 



PAUSE 


Y 


= f(x) 






X 


= X 








YES 



Not first pass 

both f (x) old and f (x) 

new are available 



YES 



3-1 



Stop, user enters Ax 
to begin searching for 
root 





YES, ROOT FOUND 





NO 




r 1-c 


Ax^ 


-0.1 Ax 



Recall X 



EXAMPLE 



c 



PAGE^I 





27 


COS X 


73 




i 34 




25 


; GOTO( )( ) 


44 


0 


' 00 




06 


1 7 1 END 


1 46 



X 

cos( x) 

^f(x)" 



X -cos(x)=f(x)f 



PART NO. 0^00-70014 



.EXAMPLE LFJISiaS^THE RQOT 
Of xf^coU^. REWRl'rrE THE 
•EQUATIONiAS f(x)=x-cosx. 



EXAMPLE 2 



i6 



X 

cosx 
X 

TT 



4. 



27 
56 
36 
02 
35 
01 
30 
73 
33 
I 3 
36 
I 7 
76 
27 
56 
36 
36 I 



— ! 34 



f . ^ 2 5 

r> I GOTO( )( ) 44 



jO 



END 



I 00 

06 

! 46 



X \ X 






TTX 








1 ^ 




TT ^2 




1 
1 








1 


— . . 


COS(7rV2) 








l + COS(7rV2) 




y 






X 




l+COS(7rV2) 






^/)^ 

TT 








yx~ 


y l+cos(7rV2^ 


1 


7r<yx~ 




9 






7r2yr 


y 


I+cosCttVz) 








f(x,y) 




f(x.y) 






























1 



















^ \ I i [ """I 

,EXAMPLE^'Z -FINDS THE „ rtOOJ 



IT' 



GIVEN 



THE !lNJTIALj:dND]TION THAU ' 
J y =4^ FIND x^ REWRITE 

the ^equajionI as ' „ J 

' f(x)j=iy(l+cos^)-^v^ . 



„4 
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PART NO. 09100 - 70014 




A. 

PAUSE 
IF FLAG 



04 
36 

I 27 

i 17^ 
1 57 



ZERO PReDU<t)T 



Xi 



f(Xi) 



1 

ROLL >L 

I 

J CLEAR X 

'I ^ IF x<y 

^ 0 

IF x = y 

r ROLL ^ 

I 

^/ GOTO( )( ) 



CHG SIGN 



2 : 



1 



43 I 

^03 I 
0, 

1 31 ; 

i 37 ! 
I 52 [ 

1 02 ; 

I 00 I 

! 50 I 

f ■ f 
I 22 , 

j 00 ^ 
00 ^ 
32 T 

! 21 ! 

_ 4, 

01 



R00T""aUSTiPASSED7 
MEAN&^00F-"F9t^ i 



f(xi-i)-f(xi) 



RECAtCOtATE 



-J 



to 



o 

tr. 

Ll. 



5 



IF x = y 



GOTO( )( ) 



0 



24 ' 

i 

05 j 

^4 

40 j 

|_ 

17 7 



33 



25 j 
44 j 

"ooT 



IF Xnew = Xod THEN ROOT 




X 



HAS BEEN FOipND 



-I - t 



"T 



1 



4 



CONTINUE \ 47 
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PART NO. 09100-70014 



1 


1 01 








STOP 


i 41 




f(Xj) 


1 f(xi)-f(xi-i) 




, 27 






1 


GOTO( )( ) 


44 








2 


02 






4 


04 




1 


1 


CONTINUE 


47 






1 



4— 



5 



CONTINUE I 47 



PAGE 4 



step 
I 3 

u 

5 

I 6 



— ^ — ^ 



DIspa, 



END 



ENTER SPECIFIC f(x) STARTING AT 6 

RE^rsTER^^vrravrx ttbet thts^vart 



- -f(x>t™tEAVE 



PART NO. 








f i - 


— — 







-tij& m X AND EXfF TO 



ATtOf 




AND d 
RO(?RW 

ON-0-6- 





LU 
_l 

UJ 



Q 
< 



X 



Q 

< 



UJ 

_j 

UJ 
X 



SIMULTANEOUS SOLUTION OF 09100-70016 
TWO EQUATIONS IN TWO UNKNOWNS 



^ This program solves two independent equations simultaneously for the two unknowns. 
X 

The two equations are of the following form: 

g ax + by = e 

< cx + dy = f 

U 
< 

Q- where x and y are the two unknowns to be found. 



The solution is obtained by normalizing the coefficient of x to 1, yielding the equations: 



5 x= e/a-(b/a)y (1) 



x= f/c-(d/c)y (2) 



Substracting gives the solution for y: 



V - (e/a - f/c) 
|jj y ~ (b/a - d/c) 

UJ 

X The value of x is then found by substitutirg the value of y back into the second equation. 

Q 

< 

U 
< 

Reference: 

Ul Numerical Analysis 

^ by 
UJ 



Kaiser S. Kunz 

McGraw-Hill, 1st edition 
(1957) 



09100-70016 



USER INSTRUCTIONS 



EXAMPLE 



ENTER PROGRAM: (Starting Address is (0) (0)) 
PRESS: GOTO (0) (0) or[END| 
PRESS: CONTINUE 
DISPLAY 




ENTER DATA: a - 
PRESS: CONTINUE 
DISPLAY 



Z, b 



Y, e 



•X 




ENTER DATA: c - 
PRESS: CONTINUE 
DISPLAY 



Z, d 



Y, f 



X 




Solve the following equations simultaneously 
for X and y. 

(1) 2x+ y= 6 

(2) 2x + 3y = 1 

Data to be entered: 



Z 
Y 
X 

Z 
Y 
X 



(1) 



:2) 



Solution: 



X = 4.25 
y = -2.50 



General Form: 



ax + by 
cx + dy 



TO RESET PROBLEM: 



PAGE 



PART NO. 09100-70016 




O ROLL ^ 22 



CALCULAT 



x::y 



30 i 



0 



1fcAND"4t 



E e/a AND fya OM THE FIRST PA^S; 



i I ACC — 



30 



I 2 . 



f 



CALCULATE y 



CALCULAT 



ON THE SECOND PASS 



AND CONSTANT OF SECONt) ECiUATION 



CALCULATE ( /q- /c) AND ( /a-/c) 



L X 



ENT£R-_ 

ANDICONSTANt OF fiRST 
EQUto-ION) ' ^ 



2 : 



ROLL 4^ r 31 




END 



46 



T I U 




09100-70017 

USER INSTRUCTIONS 



EXAMPLES 



ENTER PROGRAM: (Starting Address is (0) (0)) 
PRESS: GOTO(0)(0) [or ENd] 
•PRESS: CONTINUE 
DISPLAY 




ENTER DATA: 



X 



PRESS: CONTINUE 
DISPLAY 



Exponent of 10 
Decimal Number of n I 



Z 
Y 
X 



L- TO RESET PROBLEM: 



DATA 

A) n = 0 

B) n = 7 

C) n = 1000 



D) n 



10^ 



SOLUTION 
n! = 1 

nl = 5.040 X 103 
nl = 4.0239 x 10 
nl = 2.8463 x 10 



2567 
35659 



TIME 

1 sec. 
16 sec. 

2 min. 
53 sec. 



PAGE 



PART NO. 09100-70017 



Step 



I -7 




IF X>3' 



ENTER EXP 



CHG SIGN 



CLEAR X 



GOTO( )( ) 



0 



ro 



ENTER EXP 




STORE-m^ 



BRANCH IF n = 0 TO SET n! = 1 



-FORM--nH 



I I 



BRANeH-+F 



25 



27 



0 



iThfPARTiAU 



1?EtKK:E"^^EjXP0NENT^" 0^^^ 
EXPONENT OVERFLOW 



S' 



0 



ENTtR 



5r2TT 



<109O- 

J 



(PARTTAL) BY 

"VjA^LyE — OF — THE^ - 
IN f 



DECREMENT (n-k) BY ' 



37 



44 i 



00 
I I 



25 
2g" 



PAHXlAL4ACI0eiAl B:jL4jj^ric=D 
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PART NO. 09100-70017 





PART NO. 
09100-70021 



POLYNOMIAL EVALUATION ( 0< n< 10) 



Q 

a: 
< 

< 

Q- 

h- 
I- 

LJ 

LlJ 
X 

s 



Q 

< 



This program will evaluate a polynomial of the form: 

f(x) = A^x + A^_^ X . . 
for l<n<10 



Aj^ X + Aq 



Input data is a^, A^ . . . Aq, and the value of x for which the polynomial is to be evaluated. Any 
coefficient (A^) may be zero. If any term(s) of the poljmomial is absent, then the coefficient of that term(s) 
must be entered as zero. 

The value of f(x) for a new x may be obtained by entering the new x after the last f(x) has been calculated. 
To enter new coefficients for a different f(x) , the program card must be re-entered and the user instructions 
repeated. A/s and x's must be real numbers. 



UJ 
_l 

UJ 
X 



Q 

< 

< 
a. 



I- 

UJ 

_i 

UJ 
X 

td 



Q 
< 

u 



I- 

UJ 

_l 

UJ 



09100-70021 



USER INSTRUCTIONS 



USER INSTRUCTIONS 



ENTER PROGRAM (Starting Address is 0 - 0 ) 
PRESS: GO TO (0) (0) or [eNd] 
PRESS: CONTINUE 
DISPLAY 




ENTER DATA: 



Z, A, 



10 ^ ' ^9 
ENTER 0 if term does not exist. 
PRESS: CONTINUE 
DISPLAY 



•Y, A, 



■X 




ENTER DATA: 



Z, A, 



Y, A^ 



X 



PRESS: CONTINUE 
DISPLAY 




ENTER DATA: A, 



Z, Ag— »-Y, 



X 



PRESS: CONTINUE 
DISPLAY 




ENTER DATA: 



Y, A; 



X 



PRESS: CONTINUE 




ENTER DATA: x — ^X-<- 
PRESS: CONTINUE 
DISPLAY 





EXAMPLES 



(A) Polynomial: x + 10 (A^ - 1, A^ = 10) 
X f(x) 



11 
12 
13 



2x^ + Ax^ + x^ + X + 100 



(B) Polynomial: x 

(Ag^l, A3=-2, A^=4, A2=l, A^=l, Aq=100) 



f(x) 



105 
618 
100. IIOOO 



General Form: 
n 



f(x) = A^x + A^_^ X 



n-1 



. AjX + Aq l<n<10 
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PART NO 09100-70021 



0 



f 

2 



Q 

l! 

iO 
I 



o 



f3 



CLEAR 
STOP 

) 

3 

y-*( ) 

ROLL <^ 

CLEAR 
STOP 

ac->( ) 



s 

20 

t 

01 ' 

{ 

41 i 



23; 

I 3 • 
40 



10 p> STORE 

-• > — 

40 



I I 



ROLL ^ 

17^ 



CLEAR 



STOP 



) 



20, 
41 . 

23^ 
14 ' 

40, 
16 

31 

40' 

17 

20 

41 l" 

23-; 



Aio, Ag, AND 



STORE Ay^ As. AND Ajs 



0 

ROLL>^ 

CLEAR 
STOP 
ACC 4" 

IT"' 

"a ^ 

STOP 

' ...K. 

"a 
X 

ROLL^ 

8 



00 
31 

23- 



A, 



07 
40 
0J_ 
20 
41 
60 
251 

02? 

I 

4n 

24^ 
I I 

4o; 

1 1 ' 

36' 

31 : 

24 
10 



STORE f4, A3. A2 



STORE A 



AND A. 



MO 



0 



ENTER 



ENTER 



DATA 



DATA 



ENTER DATA 



EN 



ENT^^^DATA 

andIdishlay 



ER^liAtA 
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PART NO 09100- 700 2 I 



step 



3' f\ 
I U 



Key 



Code I 



Display 



) I 40 



8 



33 



25 



L 3_6 



L 


X 


1 Q 


' d 



33 



25 



36 
17 
33 
25 




storage 




o 



c 



o 



Q 
< 

u 
< 
a. 

yj 

X 



Q 

< 
< 

15™ 

t 

-J 



< 



i 



si: 

liJ 
-J 



< 

U 
< 

flu 



it! 
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PART NO 09100 - 70021 



step 



6 0 



i 1 



I 7 



9 



Key 



+ 



CLEAR X 



GOTO( )( ) 



END 



C«ie 



33 



25 



36 



12 



33 



25 



36 



33 



37 



44 



02 



05 



46 



'^3 : 



Display 



RRAMTH ; 
fix) Al 

^^^^ \ 



^ AND^E^ER A 



-RED" 



Storage 




^-f + 



T 









,8 





s 9_ 



1' 



tj: 

4^ 



= 0 



— r 



Lit 

! 5 I 



I 



lI! I 



8 



' 9 
h — 



It: 



Id 



'-4 

±± 



rrzi 



4 --I 



1 



^--4 4 ^ 

III;! 



ZL 




f 


G 1 






i j 








L 

~t 




I s 




• 





c 




3x3 MATRIX INVERSION' OR SIMULTANEOUS 
SOLUTION OF THREE EQUATIONS IN THREE 
UNKNOWNS 



PART NO. 
09100-70022 



X 



Q 

a: 
< 

< 

CL 



LlJ 

LlJ 
X 

s 



Q 
< 

< 



This program inverts a 3x3 matrix of the form: 



A = 



and calculates; 



where 



where 



^11 


^2 


^3 


^21 


^22 


^23 


^31 


^32 


^33 


^1 


^2 


^3 


^21 


^22 


^23 


^31 


^32 


^33 



A • A 



I = 



1 0 0 
0 1 0 
0 0 1 



or solves three independent equations of the form: 



LJ 
-J 

UJ 
X 



Q 

< 
< 

CL 



11 


^1 


+ 


^12 


^2 


+ 


^13 


^3 


= ^1 


21 


^1 


+ 


^22 


^2 


+ 


^23 


^3 


- ^2 


31 


^1 


+ 


^32 


^2 


+ 


^33 


^3 


- ^3 



for x^, Xg , and x^ . 



UJ 

UJ 
X 



Reference: Elementary Matrix Algebra 
Franz E, Hohn 
1958 



Q 
< 

U 



UJ 



Ul 
X 



09100-70022 



USER INSTRUCTIONS 



USER INSTRUCTIONS (con't) 



This program is a destructive program 
ENTER PROGRAM: (Starting Address is 0 - 0) 
PRESS: GO TO (0) (0) [ or END ] 
PRESS: CONTINUE 
DISPLAY 




ENTER DATA*: 



"11 

^21~ 

^31~ 

PRESS: CONTINUE 
DISPLAY 



Z 
Y 
X 




ENTER DATA: 



^12 

"■22" 

^32" 



PRESS: CONTINUE 
DISPLAY 



Z 
Y 
X 




*If the program for either mode should turn on 
the RED light in the RUN mode, interchange 
the second and third rows of the matrix or the 
second and third equations of the set and run the 
program again. If the RED light still comes on, 
the equations are dependent or the matrix is 
singular and a solution cannot be obtained. If 
the matrix or equation set is ill-conditioned, 
an answer will be obtained but the accuracy of 
the solution will suffer. 



ENTER DATA: 



Wish to 
invert the 
input matrix 



YES 



PRESS: CONTINUE 
DISPLAY 














^1 








^21 


Y 






^31 


X 




'V.,,... 









YES 

PRESS: 'SET FLAG 
PRESS: CONTINUE 
DISPLAY 



PRESS: CONTINUE 
DISPLAY 





ENTER DATA: 

(Do not disturb Y and 

Z registers when K. 's 
* 1 

(i = 1, 2, 3) are being 



entered) 



X 



PRESS: CONTINUE 
DISPLAY 



PRESS: CONTINUE 
DISPLAY 





ENTER DATA: Kg— 
PRESS: CONTINUE 
DISPLAY 



X 



ENTER DATA: 



11 



■Y 
X 




PRESS: CONTINUE 
DISPLAY 



ENTER DATA: Kg — 
PRESS: CONTINUE 



X 




2 



09100-70022 



USER INSTRUCTIONS (con't) 



EXAMPLES 



PRESS: CONTINUE 
DISPLAY 



DISPLAY 






Z 






^2 


Y 


^3 


X 



PRESS: CONTINUE 
DISPLAY 



TO RESET PROBLEM: 
re-enter program and 
repeat USER INSTRUC 
TIONS. 




TO RESET PROBLEM: 
re-enter program 
and repeat USER 
INSTRUCTIONS. 



(A) Find the inverse of the following matrix (A) , 
General form: 



A = 



11 



"12 



^21 ^22 



"31 



'32 



-1 



^11 ^2 
^21 ^22 
^31 ^32 



"13 
^23 
^33 



13 



23 



33 



A 



Solution: 



A = 



.1429 -.0714 0 
-.0306 .1582 -.0714 
-.0102 -.0306 .1429 



(B) Solve the following three equations 
simultaneously. 
General form: 



11 


^1 


+ 


h2 


^2 


4- 


^3 


^3 


= ^1 


21 


^1 


+ 


^22 


^2 


+ 


^23 


^3 


= ^2 


31 


^1 


+ 


^32 


^2 


+ 


^33 


^3 


= ^3 



^1 


+ ''2 


+ 


2x3 = 


3 


4x^ 


4-3x2 


+ 


^3 = 


1 


2x^ 


+ X2 


+ 


6x3 = 


4 



Solution: 



^1 - 


= -3 


^2 - 


= 4 


^3 '- 


^ 1 



STORAGE ALLOCATION OF THE {aij} or {bij} 
IS AS FOLLOWS: 



hi 


^12 


^3 




hi 


h2 


h3 


^21 


^22 


^23 


OR 


hi 


h2 


h3 


^31 


^32 


^33 




hi 


^32 


h3 



3 



09100-70022 

EXAMPLES (con't) 



Stored in the following registers 



z 


0 


a " 


b 


e 


1 


c 


f 


d 



PAGE I 



PART NO. 09100-70022 



0 



Oi I 

eel 



o 



CLEAR 
STOP 
X->( ) 

c 

) 

B 

CLEAR 
STOP 

E 

ROLL 4^ 

CLEAR X 
STOP 

) 

CLEAR X 
ROLL 4^ 

3 

X-*{ ) 

CLEAR X 

f ^ 

yt^^ 
x ty 

ROLL 4^ 

r 

3 ^ 

yt[^ 
f 



20 
4 I 
23~ 
16 
40 
I 4 
25 
40 
I 3 
20 
41 
2A 
I 2 
22 
24 
I 5 
23 
00 
37 
41 
23~ 
I 7 
37 
31 
24 
13 
23 

°L 

37 

27" 

24 

00 

30 

22 

35 

24 

16 

24 

I 5 

35 

24 

I 5 



03, 1 a,, ENTER DATA 



STORE aOEFFICIENTS 



'32 



22 



0,2 ENTER DATA 



STORE COEFFICIENTS 



'33 



a. 



23 



ENTER Di^TA 



ST0RE"--CQEFFieEMTS^ 



..^ Q 

CALCULATE AND STORE] /a„ AND 'Vdn 
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PART NO. 09100-70022 



Display 



27 I 





s 



IF FLAG 



STOP 



K, 



0 



SET FLAG 



24 



I 7 



24 



0 



00 



24 



CALCULAT 



REPOSITION — eOiiNTO^ 



2 



xty 



30 



36 



ROLL^r 



34 



yt^^ 



24 



yt^^ 



24 



0 



00 



ROLL-f 



22 



36 



ROLL 4' 



31 



34 



24 



eAteytATE-^AN^-STORf: 



CALCULATE AND STORt: 



5 I 0 

T 



I 2 



17 



ROLL 4^ 



22 



CHG SIGN 



32 



36 



CLEAR X 



37 



IF FLAG 



STOP 



SET FLAG 



yt^ » 



yt^ ) 



0 



4.3 

41 

54 

33 

24 

01 

24" 

00 



CALCULA" 



E AND STORE 



<1 



o 



o 



C3 



16 . 
30 



36 . 



8 



E 
X 

ROLL 4^ 31 

ROLlI^ 22 

X ""36 ^ 

^^3^ 30 

y^n \ 24 

— 34 ' 

y;^7) 24' 



0 


17 




CHG SIGN 




X 


. 36' 


' CLEAR X 


3^ 


IF FLAG 


43 



CLEAR I 37 

STOP I 4 I 

4- i 33 

^'^^l ) 24 

3 1 3 

1 01 
+ 33 
3 03. 

IF x>y 53 

2 02 

2 ! 02 ' 

^ I4~ 

' 30 .' 
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Display 



! 5 



CALCULATE g^^ - 



CALCULA 



'21 ^112 



E AND STORE a 



'23 





J 

^^-.-^^ 


>-GALC^ibAT 






1 - 



0 



0 



ENTER K 



:rif 



NCREMENT COUNTER 



c 

STOP 



16 
41 



RECALL AND POSITION 



'31 



J'C 24. 

0 00^ 
) 4C 



0 
E 
t 

STOP , 4 1^ 



00 
I 2 
27 
I 5 



'21 



RECALL AND POSITION 



SOLUTION OR b,|,b2|,b3, 



DISPLAY SOLUTION 
OR b,| /bgi ", bg,"™ 



DISPLAY 



'32 



22 



12 



DISPLAY 
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< 

u 
< 

a. 



Q 

< 

u 

2a 



I St(»p 

1 



-J 
lUJ 



o 
cr 
< 

u 
< 



iiJ 
X 



Q 

< 

< 
a. 



_j 

Ixl 
X 



Q 

< 

U 
< 

a. 



yj 

ixl 
X 



" T 



24 



3 1 1 



40 



; '7 



Dtspiay 



, & 



rt 



ROLL 4^ 



STOP 



9 GOTO( )( ) 



27 
I 3 
31 



33 



Li 



END 



4 

02 1 



BRAWCM^rtnSPt:AY^X0EFFTCTrNTS (DP 



02 ! 



1: 

i Q , 



I C 1 



4= 



^1 L 



I 

' 9 . 



L 1„ 

' /J I 
r — 

, r I 



A 
i ^ 



J 



' 3 

r— 

lIII 

, g. 



4 -U 



I I 3 



MATmX IP 



storage 



L 



-mSPtAY I 



13 



DISP|_AY 



I ; i 



T " 



I 



- -I i 

^ h - -t ^ T 



1^ 



--pi 



-I 



i 

4 



T 



1 




PART NO. 
09100-70023 



FOURIER SERIES 
when f(t) is known 



LlI 
X 



Q 
DC 
< 

u 
< 

CL 

h- 

UJ 

_1 

LU 
X 



Q 
< 



This program calculates the Fourier Series coefficients a^ and that represent a periodic time function f(t) 
with period T. The Fourier Series representation of f ( t) is: 



f(t) 



"-O ^ 27rnt , 2 7rnt 

J— + A a cos — = — + b sm — = — 

I ^^ n T n T 
n=l 



where 



0+T 



J f(t) cos — — dt 



^n= T 



0+T 



r/.s 2 TT nt 

f(t) sm — = — dt 



n = 0, 1, 2, 



n = 1, 2, 3, . . . 



The program evaluates the coefficients by numerically integrating using Simpson's Rule which is the same 
procedure used in program 09100-70015. 

The specific f(t) is programmed into the Calculator by the user and is then used by the general solution to 
evaluate the coefficients. Execution time is dependent on the number of panels. 



u 
_J 

LiJ 
X 



Q 

< 
< 

CL 



LlI 
X 



5 

td Reference: Signals Systems and Communications 

B. P. Lathi 
^ Wiley (1965) 

a: 

< 

u 

•5C 



LlI 



LlJ 
X 



09100-70023 

USER INSTRUCTIONS 



15, February 1969 
USER INSTRUCTIONS (con't) 



SET: 



RADIANS 



ENTER PROGRAM: (Starting Address is 0 - 0) 



PRESS 
PRESS 
PRESS 



GO TO 0 0 

6 

4 



SET: PROGRAM 



ENTER: Steps to take t from the X register (t 

is also stored in the e register) and form 
f(t). Leave f(t) in the Y register and 
exit to location 8-4. Steps 6-4 through 
8-3 are available for forming f(t). The 
FLAG is not available. 



SET: 




RUN 


PRESS 


: GO TO ( ) 


PRESS 


: 9 




PRESS 


: 9 





SET: 



PROGRAM 



PRESS: sin X or cos X depending on desired sine 
or cosine coefficients. If series involves 
both sine and cosine, then initialize pro- 
gram to cos X. 



RUN 



SET: ^ 

PRESS: GO TO (0) (0) [or ENd] 

PRESS: CONTINUE 

DISPLAY 




(n is set to 0) 



ENTER DATA: 



Number of panels 
must be an even number 



t^^T 



0 



Z 
Y 

X 



Note: n is contained in the a register. 
-PRESS: CONTINUE 
DISPLAY 




To change from cosine series to sine series- 



PRESS 
PRESS 
PRESS 



GO TO 0 0 

9 

9 



SET: PROGRAM 



PRESS: sin X 
SET: 



RUN 



PRESS: CLEAR 
PRESS: X — 
PRESS: a 
(n is set to 1) 



PRESS 

PRESS 

PRESS 
I 



GO TOO 0 

5 

7 



Example #1 



EXAMPLES 



f (t) 





-37r -2 7r 



-TT 



f (t) = t' 




IT 



Zir 



37r 



-TT < t < TT 



00 



y (a cos nt + b sm nt) 
n n ' 

n = 1 



Data: Number of panels = 100 

T = 2 TT 

'o = - ^ 

Solution: 



tQ + T = 


3. 


14159 


^0 = 


6. 


57974 


^1 = 


-4. 


00000 


^2 = 


1. 


00000 


^3 = 




44444 


\ = 




24998 


h = 




15997 


^6 = 




11107 


^7 = 




08158 


a„ = 




06243 



b^ = 0; f(t) =f(-t) 



EXAMPLES (con't) 



09100-70023 




Data: 

T = 4 
^0=0 

Number of panels = 50 
Solution: 



tQ.T 


= 4.0 






aQ = 3 


00053 




: -.63662 


^1 = - 


40582 


"2 = 


= -.31832 




00054 


■=3 = 


= -.21223 




04557 


"4 = 


= -. 15921 




00057 


''5 = 


-- -. 12744 




01676 


•^6 = 


-. 10631 


ag = 


00062 


•=7 = 


-- -.09128 




00883 


"8 = 


= -.08009 




00069 







Note: See step page 1 for steps needed to exe- 
cute examples 1 and 2. 
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PART NO. 09100-70023 



0 0 



Ced* 



01 



Display 




8 ; "TT" "["iH 



ROLL I 3 I j 




xZy 1 30 




if 



tn + T 



PANELS 



PANELS (MUST BE EVEN), 



> to 




STORE 



06 



— - -I 



BRANCH TO EVAULATE FUNCTION f(t) 



IF x = y 



04 



\y\ 



ENTER EXP 



I ! 



, I AL 5 PO [ N T 



-eOlV^PARt- 
"WTEGRAT 



^.^pp^.^-|^|0.-r.9^^^yJD fTOP 



0H-+F44— fT 



IF x<y 



COMPAR E t TO Jj^tg AND S TOP 

Y ntegration" "if t > T'ftQ • 



J „ 
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PART NO. 09100-70 023 
storage 



3 ^ 



'J 



■a 



^ 05 



O 

r - a: 



1- ; 



t 

5 



I. 



c 



It. 



1 

\ ROLL 

\ _ ^ ^ 
I IF FLAG 

I _Z7 

I SET FLAG 
GOTO( )( ) 

""3 

c 

_~ 2 
X 

ACC + 
GOTO( )( ) 

ROLL 4^ 
ACC + 
GOTO( )( ) 

J 

CLEAR X 
ROLL ^ 
ACC + 
RCL 

X 

3 



STOP 
CLEAR 

a 

1 

a 



16 
22 
27 
43 
03 
I 4 



54 

04 ( 

03 

16 3 

02 ' 

1 

36 
25 
60 
44~ 

01 . 

03 

16 

22 

60 

44 



CALCULAT 



1 4 g(to-hA t 



I f g 



)+ 2g (to+2At)j 



BRANCH TO CALCULATE 



EECAii^,„4t---^„^)^i^ CALCiljLATELJjLA±4 



PLACE t+ 



SUM g( y +T) TO g(to)f4g(to+At)+ 2g( V2,At ) -h 



i^MUtTfPtY- 



37 
22 
60 

61^ 

16 ' 
36 
03 , 
35 * 

I RECALL n 

20 

I 3 \ 

27 

- I 
01 - 

33 ; 

40 

13 I 



At AND g(t) 



ANOTHER PARTIAL AREA 



IN THE ACCUMULATORS 



01 > BRANCH FtOR OTHER PANEL CALCULATION 
03 



, THE HARMONIC NUMBER 



n 



INCREMENT n 



J SERfE^ ^ 

1 1^ 



On or bp 



to + T 



DISF!>LAY 
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PART NO. 09100-70023 



step 



Hi 



6i__0 

' 1 



u — :j 



GOTO( ){ ) 



02 



Display 



01 >" 



RECALL to 



BRANCH 



CONTINUE 



5 . 



7 



^ ! \mj^uxommjES^^-- Mvoio- ihe. Msslbility. ^ 



•4 



AVAILABLE 



in 



7T ; 



0 CALCU LAT1E COEFF 



JHROLLGlLSiS^REL 



FOR FOR MING f(t) 



DEFFICIErfF f I I I 1 j 



OF /^/V END STATEMENTl AND THU S ^CORDING J _ 



! AND ENTERING PROB LEMS . 



i- - -1 -A 



7 0 



J 

2 ; 

4. r 



CONTINUE 



9 

a 

c 

d 



8 



3 
4 



CONTINUE i 47 



i— i — T" i 

" T 1 ■ 



- 



02 



36 



r 

7 



/7 



17 



27 



' 9 



TT 

ROU>^ 



ROLL ^ 



34 



56 
31 

35 j 



a 



CALCULATE 



ZEE 



■T ■ ^ 



I 

- -I 



— -* 



r 
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o 




Display 



PART NO. 0 9100- 70023 

1 ^r^"' 



CAECOEATE 



cm 



!> AS ENTERED IN THIg STEP: 



T 



"COS^AECUL AT 



ES' 0 



BRANCH to INTEGRATE] AND OBTAINI COeI^FICIENTS 



AFTER EXECUTION DATA IS STORED IN JHIS__ 



ffE^ASTCT^fWO ^^ EN D STA TfMEN T, 

RECORD PROGRAM ON A MAGWTTC^ 



THEREFORE, 

^j^m-BEFcm^-EXE^etmm: 




PART NO. 
09100-70024 



GAMMA FUNCTION 



UJ 
X 



Q 
< 

< 
a. 



These program evaluate the Gamma Function, 
where 



r (z/) 



/ 



00 



•t 



dt 



Program 1 evaluates F (Z/)over the range 0<Z/< 69.98 

9 

Program 2 evaluates r(l/) over the range 0<l/ < 10 



UJ 

_i 

UJ 
X 

@ 



O 

< 



I- 

UJ 

_J 

UJ 
X 



Q 
< 

< 

Q- 



UJ 



U 
X 

Reference: Handbook of Mathematical Functions 
National Bureau of Standards 
Q Abramowitz & Stegan 

Ql Sixth Printing, 1967 

< 

UJ 
_1 

^ 
UJ 
X 

2j 



09100-70024 



USER INSTRUCTIONS 



EXAMPLE 



PROGRAM #1 



0<V < 69.95 



ENTER PROGRAM (Starting Address is 0 - 0) 
PRESS: GO TO (0) (0) ^or ENd] 



PRESS: CONTINUE 
DISPLAY 




ENTER DATA: Z/- 
PRESS: CONTINUE 
DISPLAY 



X 




To enter new value for 1/ 



PROGRAM #1 



Z/ = 1.750 
r il/) = 0.919062527 

r {]/) = 3.041409320 x 10°^ 



PROGRAM #2 



Z/ =1.750 

r (Z/) = 0.919062527 

Z/ = 97 ^ 
r 9.916779322 x 10^^^ 



PROGRAM #2 0 < Z/ < 10 

ENTER PROGRAM: (Starting Address is 0 - 0) 
PRESS: GO TO (0) (0) [or ENd] 
► PRESS: CONTINUE 
DISPLAY 




ENTER DATA: T/- 
PRESS: CONTINUE 
DISPLAY 



X 



exponent of 10 Z 

decimal number — Y 
1/ X 



To enter a new value for ]/ 



PROGRAM 1 
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0 











Storage j 


> 




















u 




■ i 


CLEAR 


20 




















STOP 


41 




V 


0 


0 


EN 


TER 




X 








¥ 


27 






















1 


01 






















— 


34 
























40 






















d 


1 7 


























27 



























25 
























int X 


64 






















r- 


— 


34 






















/"? 


CLEAR X 


37 






















,„ 


IF x>y 


53 








: 












'/ 


CLEAR X 


37 




REPLA( 


? <6 










1 


01 






















+ 


33 
























5 


05 






















1 




33 


























25 


























27 
























X 


36 
























ACC H- 


60 : 
























02 




















'. 




xZy"" 


30 




















H 




— 


35 
























3 


03 




















1 






34 




















1 2 




















' 35 ~ 














i 




2 


02 


























35 
























+ 


33 




















i 






1 2 


























35 

























7 


07 




eAteii 








1 


1 




1 








35 






LATE — P(i/) = 


121/ 360] 


^''l2( 


— «-™- 
50z/ 


168 


_^ 


252 






1 


01 




^^60l 










2 










— " 


34 








f+ 7j/2 ( 2 + 


( 














E 


1 2 


























35"" 


























06 


























35 ] 












; 



PROGRAM 1 PAGE 2 PART NO 09100-70024 




I 

in 



a 
I 

in 



PROGRAM 1 



+ 

X 

GOTO( )( ) 
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FART NO 09100-70024 



o 

a: 

U-A 



LiJ 



U 



-7 



GOTO( )( ) 

4 
d 



+ 

CLEAR 



END 



01 
33 

25 
36 
44 
05 
03 
2 5 
35 
27 
01 
34 
44 
05 

04_ 

01" 

30 

17 

33 

37 

21- 

46 



Sloraf 



CALCULATE v/ FROM V/ 



V 



RECALL AND POSITION DISPLAY 



r(z/) 



i 1 i 






















































DIS 


PLAY 






1 



£i3 



8 



PROGRAM 2 
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PART NO 09100-70024 



Q 

cr 
< 

(J 




I 

o 
o 

Ll. 



PROGRAM 2 



GOTO( )( ) 

9 

A.... 

X 

ACC + 
CLEAR X 

r 



5 
+ 

6 

0 

f 



5 

In X 

TT 
+ 
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In X 

2 



35 
44 

03 
I l_ 
I 7" 
36 
60 
37 
30 
0I_ 
34" 

1 2 

35 
06 
35 

05 
33 
06 
00 
35 
15 

35 
34_ 

2 7" 
2 

05 
33 
15 

36_ 

25 

33 



PUT z/; 



J/ 



IN f, e IIF 1/ > 17 



TmSH 



^^^^^^^^^^^^ ^ J 







! 






i 

i L 



56 ; 

27 

33 ' 
25 I 
65 { 
27 I 
02 ! 



CLEAR X 



35 

37. 



ROLL >^ 31 I 



CALCULATE I 



TT 



PROGRAM 2 
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PROGRAM 2 
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PART NO 09100-70024 




I Step 



Ci 



I 1 



: 2 



4 
5 



6 i 



7 i 



8 



'1^ 



Display 



r 



storage 



2 ; 



' 3 



r 

I 

I 



I 



1 r 
1™^ 



1 



1 

I 



r,; . 



^ 6 

' 3i 



I-- 



'6 



1 



T 



i 



i J I LI 

izEznlzi 




PART NO, 
09100-70025 



BESSEL FUNCTION 



UJ 
X 



Q 

cr 
< 

< 

QL 

I- 

LlI 
_l 

u 

X 

@ 



Q 
DC 
< 

< 

t 

\- 

1x1 

Ld 
X 



The differential equation: 



2 dK dy / 2 2. ^ 

X ^ + x^ + (x-n)y = 0 

dx 



is called Bessel's equation of order n. When n is an integer the Bessel function of the first kind of order 
n, J (x) , is a solution where: 



2 ^ 

^''^"(f") j^l^Q k: (n+k): 



The computation is performed as follows: 

n r 2 



J (x) 
n 



(I) 



1 - 



1 - 



X > 0 



(^) r. (^) 



2(n+2) r * 1 3(n+3) 



Q 

< 

< Reference: 

Handbook of Mathematical Functions 
^l. M. Abramowitz & I. A. Stegvim 

National Bureau of Standards 
Sixth Printing, 1967 



Ld 



UJ 
X 



Q 
< 

U 



UJ 



UJ 
X 



09100-70025 

USER INSTRUCTIONS 



EXAMPLE 



ENTER PROGRAM (Starting Address is 0 - 0) 
PRESS: GO TO (0) (0) |^or ENd] 
►PRESS: CONTINUE 



DISPLAY 




ENTER DATA: n- 



►Y, X- 



PRESS: CONTINUE 
DISPLAY 




To enter new value for n and x 



(A) 



X = 5 
n = 9 

J (x) = 5.520283139 x 10 

n ' 



-3 



(B) 



X = 24 
n = 46 

J (x) - 3.347208960 x 10 
n ' 



■10 



€2 



0 



CLEAR 
STOP 

9 
d 

CLEAR 



3 
r 

{or" 
(or 

"9 

-F 

c 

In X 

3 



IF x<y 

""3 



j ""If ''^ ■T' ' 

20 . 
41 

I I < 

23 

16 

40 

17 . 

20"*" 

0"3" i 



2 
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r 



X 



27 
16 



76 

I 

76 

35 
I I 

33 
16 
65 
27 , 
03 ' 
35 ' 
25 
74 
33 
01 ' 

3 3_ 
02~* 
27 

16 
3b 

24 \ 
"|6 

52 

i 

04 ! 
03 J 
35- 
02 

25 ^ 















EN 1 


ER 1 


jATA 














































































J 











































































calot: 

ADOEtr 


"TXrXARGER 


OF n OR 































































TO 


BE 












i ivr 























































































CAtCUtATE ^7^" 



OMIT TEST IF X > ri 



ACE x-^^tisrt- 



d 
d 

xty 



I 7 
I 7 

30T 



CLEAR X \ 37 
ROLL >^ f 3 I 

+ S 33_ 

2 1 02' 
•t' I 35" 

30~^ 

64 
36. 
26 



xZy 

int Jf 

X 

ENTER EXP 
CHC SIGN 



3? 



9 N 
9 " 
ROLL ^ 31 J 



ADD GREATER OF In OR X TO A 



FORCE I m TO BE EVEN 



J .J 



ACC + 



60 : 




UJ 
X 



Q 

< 

< 
a. 



UJ 
X 

s 



IIYPCRGEOMETRIC SERTIIS KXPA^.STON 



09100 B ONLY 
PART NO. 
09100-70401 



The program determines the series expansion of the hypergeometric function 

00 

F(a, b, c; X) = r(c) ^ r(a + n) F (b + n) n 

r(a)r(b) ' n = 0 r(c + n) n! ^ 

The program incorporates programs 09100-70001 (N Factorial) and 09100-70024 (Gamma Function) 
as subroutines. The a, b, and c must be greater than zero. The program can be used for power series 
expansion or for the solution of Gauss's hypergeometric differential equation. 

Restrictions: (c + n), (b + n) and (c + n) must be less than 69. 



Q 

a: 
< 



UJ 

_i 
u 

X 



Q 
< 

u 
< 



Ul 

_J 

UJ 
X 



Q 
< 



UJ 



Reference: Advanced Engineering Mathematics, E. Kreyszig, John Wiley & Sons, 1968 

Handbook of Mathematical Functions, U. S. Department of Commerce, Applied Math Series 55 



UJ 
X 



09100 B ONLY 
PART NO. 
09100-70401 



USER INSTRUCTIONS 



EXAMPLE 



PRESS: END 

ENTER PROGRAM: Side A followed by Side B 

PRESS: CONTINUE 

DISPLAY 




ENTER DATA: c — Z, b 
► PRESS: CONTINUE 
DISPLAY 



Y, a 



X 




To run another case; 
PRESS: END 



1. The differential equation (Gauss's Hyper- 
geometric) 

X(l - X) Y" + [ c - (a + b + 1) x] Y' -abY=0 
has solutions given by 

Yj(X) = F(a,b,c;X) and 

Y2(X) = X^"^F(a - c + 1, b - c + 1, 2 - c;X) 
IXI < [ and c ^ 0, -1, -2, . . . 

Thus 

X(l -X) Y"+(l - 1.25X)Y' - .375 Y = 0 

is a Gauss equation with 

a = .75, b = ,50 and c = 1 

It's solutions are 

Yi(X)-F(.75, .50, 1;X) = Y2 (X) 



n 


F 


0 


1 


1 


.375 


2 


.246 


3 


.188 


4 


.154 


5 


.132 


6 


.116 



Thus 



Yj(X) = 1 + .375 X + .246 X^ + .188 X^ + 
.154 x4 + . . . 
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CLEAR 






"(+) 






Ij 


s 












- 


u 


1 ( 








STOP 


■ /L\ 

i *+\ I 








CONT 


47 




; 




CONT 


47 






;.: 








I 




a 


1 3 












a 




, 1 


. 






j 




b 


■14, 








~\ 


25 




f 










H 


f 


r 

L. 




J 


1 


GO TO ( ) 






'(+) " 




7 7 




s 




O 

O 


! in. 
1 u 








r 


1 6 








CONT 


Hi 








V-»r 1 

J 


O ■3^ 
^ O 










34 ^ 








r 
t 


1 0 








3 


1 3 


/; 






GO TO ( ) 


44, 








ASUBT 


= 77 . 








Q 
O 


1 0 








C 


16 








1 


c » ■ 


"f 


2 




fi7 '. 








34 , 








/ 


i 1 K 

1 w ^ 


















X 


, 36 










, 40 = 










34 ■ 


a 






r- 
T 


1 0 ' 








C 


16 






1 o j 


— - - 

GOTO ( ) 


44 
















- , 


aSUBt 


' 77. 


















8 


'\0 








' " c 


16 


yj 




l_L 




27 








t 


O 


! ^ 


'1 . 1 


) 


]' 67 j 











ENTER 



a i b 



3 




ot 


{+)' 


1 


1 5 








35 






















T 


1 ^ 






3 






j 


GO TO ( ) 


44 






aSUBv 


77 






o 


\ 10 




1 




06 , 








? 3 








o*t 








1 2 


4 


LJ 


14 ' 


(+) 


GO TO ( ) 


44 






aSUBv 


77 






o 


1 n 

1 vy 






D 


WD 






1 


O 7 






JC-«-( ) 
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34 






a 


1 9 ' 
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V 
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£■ 
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GO TO ( ) 
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77 
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; 06~ 
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77 
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r 
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if' 

7 
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E 



40 

_ 

_ 
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d 17 

GOTO ( ) ^ 44 

ASUBT I 77 



6 

ROLL ^ 

E 

ROLL 4^ 



d 
f 
0 

ROLL ^ 
STOP 
CONT 
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1 

+ 
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16 
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67 
34 
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35 
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47 
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DISPLAY 



n Fn 
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^0 j 
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d 
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GO TO ( ) 


44 


3 
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6 
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d 
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+ 


33 




25 


t 


27 


1 
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34 




40 


d 


1 7 


t 


27 
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int X 


64 


~" 


34 


CLEAR X 


37 


. GO TO ( ) 


44 




34 


0 


00 


0 


00 
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* IF x>y 
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^ CLEAR a: 
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01 
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X 
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TT 
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01 
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15 
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65 
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IF X>> 
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9 


1 1 




GO TO ( ) 


44 


6. .'-^ 


6 


06 




3 


03 




■4 
1 


; 01 




1 


33 




1 


25 




X 


36 




GOTO( ) 


44 
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i ^ 


25 
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35 






27 




1 


01 


T 




34 



-T 35 
4 25 



J 'r 



c 



c 



c 



a 



i: 



Q 

5^ 



6 GOTO( ) 

(-) 4 

6 I 

CONT 
CONT 

0 ^ 
^-►( ) 

E 
x^i ) 

f ] 

ROLL ^ 

RETURN 

t ^ 

0 

IF x=iy 



1 

1 

, IF 

8 
3 

ROLL ^ 

X 

y , ROLL ^ 

q' j: ooTO( ) 

« . ROLL ^ 
' RETURN 



a • 

J. 



f 

I I 
44 
04 
06 
47 
47 
00 
23 

' 12"^ 
23 
15 
22 

' 77 ' 
27 

.00 
30 
50 
72 
01 
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Reference: Elementary Matrix Algebra (1958), Franz E. Hohn 
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USER INSTRUCTIONS 



USER INSTRUCTIONS (Con't) 



PRESS: END 

ENTER PROGRAM: Side A followed by Side B 

PRESS: CONTINUE 

DISPLAY 




ENTER: Row 1 of B 

PRESS: CONTINUE 
DISPLAY 



Y, bii -*-X 




ENTER: Row 2 of B 

b23-*- Z, b22- 

PRESS: CONTINUE 

DISPLAY 



Y, b2i-*-X 




(4) 
2 



ENTER: Row 3 of B 

b33-*" Z ^32 - 

► PRESS: CONTINUE 

DISPLAY 



■Y, b3i— 




i = 4 

indicates C is\ 
complete J 



(3) 



ENTER: i th Row of A 

Ai3— ►Z,Ai2^Y, Aii- 

' PRESS: CONTINUE 

DISPLAY 



X 



.2) 




( I) 




(I) 



To run another case: 
PRESS: CONTINUE 



EXAMPLE 



A = 



3 4 
2 1 

4 -2 



fl 2 4\ 
4 3 1 
11 6 -2/ 



C = 



15 



35 


-1\ 


20 


16 


2 


12 
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07 
05 



"it "J7[ 1 
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Q 
DC 
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Q 
< 
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< 

Q- 



LiJ 
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LU 
X 



O 
< 

UJ 
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UJ 
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< 
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ROOTS OF 4TH DEGREE POLYNOMIAL 



This program determines the real and complex roots of the foxarth degree polynomial 
f (x) = + a^X^ + agX^ + agX + a^ ^ 

where the coefficients a. are real. The program uses the Lin-Bairstow method which determines a quadratic 
2 

factor (X + rX + s) such that 

f(x) = (X^ + rX + s)(X^ + bjX + bg) + RX + S 

The variables r and s are obtained by an iteration scheme which reduces the remainder terms R and S 
to zero. The user can specify the remainder which he can tolerate. 

The program applies the following recurrsive relationships: 







- r 




^1 


= b,-r 


\ 


= ^2 


-rbi- 


s 


^2 


= b2 - rcj 


h 


= ^3 


- ^^2 - 


sbj^ 


^3 


= -rc2 - scj 




""4 


-rbg - 


sb2 


R 


= ^3 



S = b^ + rbg 

These quantities (b^ and c^) are reqmred for the determination of A r and As in the equations: 
C2 Ar + Cj As = bg 
"c^ Ar + C2 As = b^ 

The terms r and s are incremented by A r and A s respectively and the remainder terms are tested 

against the tolerance. If the remainders are small enough to pass the test, then the two quadratics 
2 2 

(X + rX + s) and (X + bj^X + bg) are solved by the quadratic formula. If the remainder is too large, the 
iteration is repeated and the test repeated. 

Locations + (5 - 6) through + (5 - 9) are used for storing the tolerance on |R| and |S I 



Reference: Numerical Analysis, Kaiser S. Kunz, 1957, McGraw-Hill Book Company 
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USER INSTRUCTIONS 



USER INSTRUCTIONS (Con't) 



PRESS: END 

ENTER PROGRAM: Side A followed by Side B 
'PRESS: CONTINUE 
DISPLAY 




ENTER DATA: ag — 
PRESS: CONTINUE 
DISPLAY 



•Z, a,c 



■ Y, a. 



.X 



Z 
Y 
X 



ENTER DATA: a^- 
PRESS CONTINUE 
DISPLAY 



Z, s 



X 




PRESS: CONTINUE 
DISPLAY 




PRESS: CONTINUE 
Real Roots Complex Roots 




R = a + bj 
+ Imaginary Part 
- Imaginary Part 
Real Part of R 



Z 
Y 
X 



PRESS: CONTINUE 



* Both r and s must be non-zero 



DISPLAY 




PRESS: CONTINUE 



Real Root 



0— Z 
R4— Y 



-X 



or 



Complex Roots 
f R = a + bj 

+ Imaginary Part 
- Imaginary Part 

Real Part of R 



To run another case: 
PRESS: END 



EXAMPLE 



Fourth Order Butterworth Polynomial 

F(s) = s^ + 2. 613 s^ + 3. 414 s^ + 2. 613 s + 1 



a^ = 2.613 
ag = 3.414 
ag = 2.613 
a^ = 1 

Tolerance is set as . 001 



r = 1 
s = 1 



Solution 

ISI 
iRi 

s 
r 



= 0.00094 
= 0.00015 

= 1.0005 
= 0. 7661 



rootj = -3831 - j. 924 
root2=-.3831 + 3. 924 

bg = 0.9985 
bj = 1.8469 

root3= -.9234 -j.3818 
root4= - .9234 +3. 3818 



Actual * 



1.0 

0. 7654 



1.0 

1.8478 



* Network Analysis and Synthesis, Franklin F. 
Kuo, 1962, John Wiley & Sons 
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STOP 
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PROGRAM FOR NUMERICAL SOLUTION OF TWO 1ST ORDER 
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U 
X 



form: 



This program may be used to solve a wide variety of pairs of first order differential equations of the 



Q 

a: 
< 

U 
< 

OL 

h- 
I- 
UJ 

_l 

UJ 
X 

s 



Q 

< 

U 
< 



UJ 



UJ 
X 



Q 

cr 
< 

o 
< 

Q- 



Ui 



UJ 
X 

B 



with initial conditions 



dY 
dX 

dZ 
dX 



Yo 
Zo 



f(X, Y, Z) 
g(X, Y, Z) 



Y(Xo) 
Z(Xo) 



The program will calculate successive Y^'s corresponding to equally spaced Xj's with an increment h 
specified by the operator. Specifically the type of solution involved is a Runge-Kutta Method which uses the 
equations: 

^i+l = + (ki + 2k2 + 2k3 + k4) 



where 



-1 = Zi + g- (pi + 2p2 + 2p3 + P4) 





= hf (Xi, Yi, 


Zi) 




k2 


- h f (Xi + ^ 


, Yi 


+ |l, Zi + |l) 


^3 


h 

= h f (Xi + 2" 


. Yi 


k P 
+ "2" 2, Zi + ~2 2) 


k4 


= h f (Xi + h, 


Yi + 


k3, Zi +P3) 


Pi 


- h^ 


I (Xi, Yi, 


Zi) 




P2 


= h^ 


5 (Xi + ^ 


' Yi 


k . P ^^ 
+ Zi +^1) 


P3 


= h^ 


^(Xi + I 


' ^i 


42, Zi 42) 


P4 


= hi 


r (Xi + h, 


Yi + 


k3, Zi +P3) 



Q 

< 

U 



Reference: An Introduction to Numerical Mathematics, Eduard L. Stiefel, Academic Press, Inc. 1964. 
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USER INSTRUCTIONS 



USER INSTRUCTIONS (Con't) 



ENTER PROGRAM: (Starting Address is 0-0) 

PRESS: GO TO ( )( ) 

PRESS: - 

PRESS: 0 

PRESS: 0 

SET: PROGRAM 

At this time the independent variable X is in both 
the X and c registers, the variable Y is in both 
the Y and b registers, and the variable Z is in 
both the Z and a registers. Starting at -0,0 
enter the program steps which take the vari- 
ables from their respective registers and calcu- 
late f(X, Y, Z) and g(X, Y, Z). Place f(X, Y, Z) 
in the Y register and g(X, Y, Z) in the Z regis- 
ter. The last statement must be RETURN since 
the main program calls for a subroutine contain- 
ing the two differential equations. 

Note there is a maximum of 14 registers avail- 
able for storing and positioning f(X, Y, Z) and 
g(X, Y, Z). 

Note also that the contents of the a, b and c 
registers must be preserved. 



SET: 



IRUNI 



PRESS: END 

PRESS: CONTINUE 

ENTER DATA: h — ^ X (Increment) 

PRESS: CONTINUE 

DISPLAY 




ENTER DATA: Z^ — »-Z, Y^ 

(Initial Conditions) 
PRESS: CONTINUE 



Y, X, 



X 



The calculator will display answers at every 
increment of the independent variable in the 
form: 




To hold the solution at the next increment, 
depress PAUSE imtil display. To restart, 
press CONTINUE. To execute program 
again, enter the new differential equations. 



EXAMPLE 



dY ^ 
dX 

dZ _ 
dX ~ 

Initial Conditions 
Xo 

Yo 
Zo 



- sinX + Z 
cosX + 4Y 

= 0 
= 1 
= 2 



Let increment h = . 005 SET: 



RADIANS 



The steps that form f(X, Y, Z) and g(X, Y, Z) 
appear on page 2 of the step pages. 



X 


Y 


Z 


.01 


1.020 


2.050 


.02 


1.041 


2.102 


.03 


1.062 


2. 154 


.04 


1.083 


2.207 


.05 


1. 105 


2.260 


.06 


1.127 


2.315 


.07 


1. 150 


2.370 


.08 


1. 174 


2.427 


.09 


1. 197 


2.484 


.10 


1.221 


2.543 



2 
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UJ ^^^^^^^^^^^ ROOTS OF 6TH DEGREE POLYNOMAL 



UJ 
X 

This program determines the real and complex roots of the sixth degree polynomial. 

Q f (x) = + a^X^ + agX'^ + a^X^ + a^X^ + a^X + a^ , 

< 

^ where the coefficients a. are real. The program uses the Lin-Bairstow method which determines a quadratic 
< 

CL 



factor (X + rX + s) such that 



f (x) = (x^ + rX + s) (X^ + b^X^ + bgX^ + bgX + b^) + RX + S 

Lj The variables r and s are obtained by an iteration scheme which reduces the remainder terms R and S 

^ to zero. The user can specify the remainder which he can tolerate. 

y The program applies the following recurrsive relationships: 



b,= 


^1 


- r 




^1 = 


bj^ - r 


^2 = 


^2 




- s 


^2 = 


bg - rcj - s 


^3 = 


ag 


- i-bj 


- sbj^ 


^3 = 


bg - rc2 - scj^ 






-rbg 




^4 = 


^4 - ^^3 - ®^2 


^ = 


^5 


-rb^ 


- ^^3 


^5 = 


-rc^ - scg 


^6 = 


ag 


-rbg 


- 


R = 


^5 



S=bg+rb5 



^ These quantities (b^ and c^) are required for the determination of A r and A s in the equations: 

S c^Ar + CgAs^bg 



Cg A r + c^ As = bg 



Q The terms r and s are incremented by A r and A s respectively and the remainder terms are tested 

against the tolerance. If the remainders are small enough to pass the test, then the quadratic factor 
,^ (X^ + rX + s) is solved by the quadratic formula and the remaining quartic (x'^ + b^X^ + bgX^ + bgX + b^) is 

< solved using the equations of program 09100-70403 "Roots of 4th Degree Polynomial." If the remainders are 

^ too large, the interation and the test are repeated. 

{]] Locations — (2 - c) through — (3-1) are used for storing the tolerance on IRI and ISI for 



pass 1 whereas locations (4 - d) through (5 - 8) contain the tolerance for pass 2 (for the reduction of the quartic). 



Reference: Numerical Analysis, Kaiser S. Kunz, 1957, McGraw-Hill Book Company 
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USER INSTRUCTIONS 



USER INSTRUCTIONS (Con't) 



PRESS: END 

ENTER PROGRAM 1: Side A followed by Side B 

PRESS: CONTINUE 

DISPLAY 



Z 
Y 
X 



ENTER DATA: s 
PRESS: CONTINUE 
DISPLAY 



Y, r 



X 



Z 
Y 
X 



ENTER DATA: ag->»Z, ^.Y, a^-^X 

PRESS: CONTINUE 

DISPLAY 




ENTER DATA: ag-^ 
PRESS: CONTINUE 
DISPLAY 



Z, a. 



Y, a 



X 




Terms b^^, h^, b^, and b^, are stored in regis- 
ters 6, 7, 8, and 9 respectively. 



PRESS 
PRESS 
PRESS 
PRESS 



GO TO 

0 
0 



* Both r and s must be non-zero. 



ENTER PROGRAM 2 : Side B followed by Side A 

PRESS: CONTINUE 

DISPLAY 



Real Roots 



Complex Roots 
R = a + jb 



0— Z 
Rg-Y 
Ri— X 



or 



+ Imaginary Part 
- Imaginary Part 
Real Part of R — 



PRESS: CONTINUE 
DISPLAY 



PRESS: CONTINUE 
DISPLAY 



Real Roots 




Complex Roots 
R = a + jb 



or 



PRESS: CONTINUE 
DISPLAY 




PRESS: CONTINUE 
DISPLAY 



Real Roots 



Complex Roots 
R = a + jb 



0 

R. 
R. 



or 



+ Imaginary Part 
-Imaginary Part 
Real Part of R - 



+ Imaginary Part - — - z 

-Imaginary Part- Y 

Real Part of R X 



Z 
Y 

X 

/ 



To run another case, return to the beginning 
of the USER INSTRUCTIONS 
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EXAMPLE 



Sixth Order Butterworth Polynomial 

F(s) = + 3. 864 + 7. 464 + 9. 141 + 
7.464 + 3.864 s + 1 





= 3.864 


r = 1 




= 7.464 


s = -1 


^3 


= 9.141 




^4 


= 7.464 




^5 


= 3.864 






= 1. 





Tolerance is set at . 001 

Solution Actual * 



^1 


= 1.9317 




1. 


9318 


^1 


= 1.0000 




1 


0000 


root^ 


= -. 9658 - j. 


2591 






rootg 


= -.9658 + j. 


2591 






^2 


= 1.4144 




1 


4142 


^2 


= 0.9970 




1 


0000 


rootg 


= -. 7072 - j. 


7049 






root^ 


= -.7072 + j. 


7049 






^3 


= .5179 






5176 


^3 


= 1.0019 




1. 


0000 


rootg 


= -.2589 - i 


9669 






rootg 


= -. 2589+ j 


9669 
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This program will calculate the coefficients of the characteristic polynomial of a matrix of the form: 





^11 


^12 


^13 


A = 




^22 


^23 




^31 


^32 


^33 



where the a., are real numbers. 

The characteristic polynomial of A is determined by reducing the equation: 





a^^-X 


^12 


^3 


determinant 


^21 


^22"^ 


^23 




^31 


^32 


^33"^ 



to a polynomial of the form: 

3 2 

x+p x+q X + r = 0 

The eigenvalues are then obtained using the techniques described in Program 09100-70011. 



Reference: AN INTRODUCTION TO NUMERICAL ANALYSIS, L. Fox, Oxford University Press, 1965 
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USER INSTRUCTIONS 



USER INSTRUCTIONS (Con't) 



PRESS: END 

ENTER PROGRAM: Side A followed by Side B 

PRESS: CONTINUE 

DISPLAY 



Z 
Y 
X 



ENTER DATA: a^^^^, a^2^Y, a^^-^X 

PRESS: CONTINUE 
DISPLAY 




ENTER DATA: Si^^- 

PRESS: CONTINUE 
DISPLAY 



■Z, a22-»-Y, agg^X 




ENTER DATA: a^^-^Z, a.^^ 



PRESS: CONTINUE 
DISPLAY 



-Y, a^g-^^X 




PRESS: CONTINUE 



DISPLAY 




# of real roots 



PRESS: CONTINUE 

DISPLAY 

3 Real Roots 



Complex Roots 



X 




To run program for a new matrix: 
PRESS: CONTINUE 



EXAMPLE 

1 1 3 

1 -2 1 
3 12 



Coefficient Solution: 



r = -17 
q = -15 

- 1 - 15X- 17 = 0 P = 



Eigenvalues: 



X g = 4. 832 
X 2 = -1. 524 
X ^ = -2. 308 
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PROGllAM FOR SJML'LTANKOUS SOI-l'TfON' OF FOUR 
EQUATIONS IN FOLK UNKNOWNS 



9100B ONLY 
PART NO. 
09100-70407 



This program in its original form was written by Dr. Stefan J. Medwadowski, a Consulting Structural 
Engineer in San Francisco. One of his hobbies is programming the -hp- 9100A. 

4x4 SYSTEM OF LINEAR ALGEBRAIC EQUATIONS 
Given a system of linear algebraic equations: 



1— 

h- 


^11 


XI + H2 ^2 + Xg 


+ a]^4 X4 


= Pi 


UJ 










_J 
^ 


^21 


xi + X2 + a23 X3 


+ a24 X4 


= P2 


LJ 










X 


asi 


xi + a32 X2 + a33 X3 


+ a34 X4 : 


= P3 


Pi 


^41 


XI + a42 X2 + a43 X3 


+ a44 X4 


= P4 



or a matrix notation: 



i.e. , 



[^ii] {"i} 



^11 ^12 ^13 ^14 




"xi" 




Pi 


^21 ^22 ^23 ^24 




^2 




P2 


^31 ^32 ^33 ^34 




^3 




P3 


a4i a42 a43 a44 ^ 








_P4 


|pi j. with i, j = 


1, 


2, 3, 


4 





Such systems occur frequently in the solution of boundary value problems of structural mechanics, such as those 
which arise in the theory of thin elastic shells or plates. 

It is assumed that the solution of the system exists; i. e. , that the determinant of the aij coefficient matrix does 
not vanish. The coefficients a^j are assumed real. 

NOTE: None of the determinates of the leading submatrices may be zero, or 



I ^11 1 
I ^11 ^12! 
I ^21 ^22 I 
I ^11 ^12 ^13 
I ^^21 ^22 ^23 
I ^31 ^32 ^33 



0 



Should one or more of these conditions exist (and should therefore the illegal operation light come on), 
it may be removed by re-arranging the sequence of the equations within the system. It is always possible to 
do this as a consequence of the postulated existence of a unique solution. 

Method of Solution: Cholewski's Method 

Reference: Salvadori and Baron, Numerical Method in Engineering, Prentice-Hall, 1952. 
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USER INSTRUCTIONS 



EXAMPLE 



PRESS: END 

ENTER PROGRAM: Side A followed by Side B 

PRESS: CONTINUE 

ENTER DATA: a^j (or p.) >"X 

NOTE: Data is entered row by row in the 
following order with a CONTINUE 
following each entry: 

^Il.ai2,ai3,ai4, pi 

a21,a22,a23,a24, P2 

^31'^32'a33»a34, pg 

^41' ^42' ^43' ^44' P4 
DISPLAY 




PRESS: CONTINUE 
DISPLAY 




To re-run program, 
-Ji— PRESS: CONTINUE 



2x^ + ^2 + + = 
XI + 4x2 + ^3 

Sx^ -5x3-2x4 = 

8x1 - X2 + 4x3 + 2x4 = 



Xj = 3 
X2 = 2 



7 

10 
10 
22 



X3 = -] 
X4 = 2 
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CONVOLUTION WITH PLOT 



This program uses the convolution integral to find the response of a system to an arbitrary forcing 
function. The forcing function and the impulse response of the system must be known. 



Development: 

CL t 

^ The convolution integral is: e(t)*h(t) = y (t) = fe (r) h(t -T) dr 

h- o 

Jjj where e (t) is the forcing function 

^ y (t) is the system response due to the forcing function. 
Ld 

X h (t) is the impulse response. 

£j It is assumed that the forcing function is zero prior to time equal zero. 
Q 

<; NOTE; X„Qg£ and Y^qq^ are multiplicative scaling constants applied in the plotting subroutine. 

I- 
Ll! 
_J 

^ 
Lxl 
X 

Q 
< 

< 

Ql 

h- 
I- 

Lxl 

^ 
1x1 
X 

cr 
< 

U 

Reference: Transform and State Variable Methods in Linear Systems -- 
Someshwar C. Gupta 

Publisher - John Wiley and Sons, Inc. 
Lij Copyright - 1966, 1st Edition 

_l 

1x1 
X 
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USER INSTRUCTIONS 



USER INSTRUCTIONS (Con't) 



SET: Decimal Wheel at 6 or less 
PRESS: STOP 

Using the origin controls, place the pen at 
an appropriate initial position. A trial run 
with large At will help to determine a proper 
origin. 

PRESS: END 

ENTER PROGRAM: Side A followed by Side B 
•PRESS: GO TO 



PRESS 
PRESS 
PRESS 



Enter program steps to form e (r) • h (t - r) 
and place this quantity in the Y register, r is 
in the X register and in storage register e. t 
is in storage register d. Registers -0 through 
-8 are available for generating the product. 

The last step must be: 
RETURN 



SET: 



RUN 



PRESS: END 
PRESS: CONTINUE 
DISPLAY 




ENTER DATA: Xcoef-^X, Ycoef-^Y 

PRESS: CONTINUE 

DISPLAY 




r 



ENTER DATA: Panels/unit time (N) 
Time increment (At) 

PRESS: CONTINUE 



•Y 
'X 



DISPLAY 




-NOTE: Each successive depression of the 
CONTINUE button increments t by the amount 
At and calculates y (t) for the incremented 
value of t. 

y (t) is multiplied by Ycoef, X(t) is multiplied 
by Xcoef and the scaled values are plotted. To 
generate the plot free of interruptions replace 
the STOP at + (8 - 4) with a CONTINUE. * 

-To run another case 



* If no plot is desired, place a RETURN in 
(-9, 0). To scale the plot axis with AXIS PLOT 
(09100-76007) use Yshift = 0, Xshift = 0, 
Yscale = 500/Ycoef, Xscale = 500/Xcoef, 
Yorigin = 0, and Xorigin = 0. 



EXAMPLE 



(A) Find the response of a circuit with an 

impulse response of e~^ to a forcing function 
of u(t) -- for 0 < t < oo . 

Therefore: e ( r) = u(r) = 1 for 0< t < oo 



, /, -(t-r) r- t 

h (t - r) = e ^ '= e 



Ycoef = 5000 

Xcoef = 1000 

N = 10 

At = .05 



Integrating analytically, the result is: 
/ e(r)h(t-r) dr= / e^^"^^dT=l -e'* fort > 0 



Results: 



t 


y(t) 


1 


.63212 


2 


.86466 


3 


.95021 


4 


.98168 


5 


.99326 
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EXAMPLE (Con't) 



EXAMPLE (Con't) 



(B) Find the response of a circuit with an 

impulse response of e~^ to a forcing function 
of sin 2t - - for 0 < t < tt . 



Therefore: e (r) 



sin(2r) for 0 < t ^ TT 
(r-t) 



h(t-r)=e-(^-^) 



SET: 

Ycoef 
Xcoef 



RADIANS 



4000 
1000 



N = 20 
At = . 05 



Results: 



t 


y(t) 


.5 


.1948 


1.0 


.4955 


1.5 


.5135 


2.0 


. 1642 


2.5 


-.2724 


3.0 


-.4200 


3.5 


-.2672 


4.0 


-. 1626 


4.5 


-.0983 


5.0 


-.0596 




EXAMPLE B 



3 
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NUMERICAL INTEGRATION USING SIMPSON'S 
RULE WHEN f(x) IS KNOWN 



This program evaluates the integral of a known f(x) using Simpson's rule. The equation is: 



/ f(X)dX 



AX 



[f (a) + 4f (a + AX) + 2f(a + 2AX) + . . . + 2f {a + (n - 2) Ax} + 4f {a + (n - l)Ax} + f (b)] 



for n panels (n must be even) where AX 



b - a 



The specific f(x) is programmed into the calculator by the user as a subroutine and is then used by the 
general solution to evaluate the integral. Execution time is dependent on the number of panels. Note f(x) should 
not have any singularities in the integration interval^ 



Q 

< 



I- 
u 

u 

X 



Q 

cr 
< 

< 

Q. 



UJ 



LlI 
X 



Q 
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LlJ 



LlI 
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Reference: 



Numerical Analysis 
by 

Kaiser S. Kunz 
McGraw-Hill Book Company, Inc. (1967) 
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USER INSTRUCTIONS 



EXAMPLES 



PRESS: END 

ENTER PROGRAM (Starting Address is 0-0) 
PRESS: GO TO 
PRESS: - 
PRESS: 0 
PRESS: 0 
SET: 



PROGRAM 



Enter the program steps that take X from the 
X register (X is also in the e register) and 
calculate f(X). Place f(X) in the Y register 
and RETURN. The entire (-) page is available 
for storing and calculating f(X). The flag is 
unavailable. 



SET: 



RUN 



PRESS: END 
PRESS: CONTINUE 
DISPLAY 




ENTER DATA: n panels (must be an even 
number) — Z, b — •'Y, a — ^ X 

PRESS: CONTINUE 

DISPLAY 




To calculate the integral of another f(X), repeat 
the instructions. 

PRESS: GO TO 

PRESS: - 

PRESS: 0 

PRESS: 0 

and proceed as before. 



X (InX) 



1. Let n panels = 30 (must be even) 

a = e 
b 



/ 



X (InX)' 



dX -=.3750098 



2. Let n panels = 100 
b = e2 

a = e 
b 



X (InX)' 



■ dX = .3750001 
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Display 
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INTEGRAL OF THE FORM: F(x) 



l'(u) du WITH PLOT 



9100B ONLY 
PART NO. 
09100-70410 



This program evaluates the integral of a function f(u) between any lower limit a and a successively 
incremented upper limit. 

A modification of Simpson's one third rule is used to perform the integration. The following equations 
are used: 

X. 

For j = 0, J* f(u) du = h/6 [ 1/3 f(a) + 4/3 f(x.^^) + 1/3 fCx.^g) ] 



Ixl 
X 

g 



Q 

< 



LiJ 



1x1 
X 

g 



Q 

oc: 
< 

< 
Q- 



X. 

For j > 3, J ^ f(u) du = h/24 [f(x._3) + 5f(x._2) + 19 f(x._^) + 9f (x.)] 



3-1 



Notes: 

Due to the manner in which the program is written, the function will initially be integrated over an area formed 
by twice the increment; thereafter, integration will proceed by one increment at a time. 

To integrate with some constant (a) as a lower limit (other than zero), in the program steps in the f(u) subroutine 
add a to u to form u' and form f(u'). For a lower limit of zero simply form f(u). In each case the upper limit 
will exceed the lower by some multiple of the increment depending on the number of times x is incremented by 
depression of the CONTINUE key. 

To integrate from some lower limit to a specified upper limit without continually depressing the CONTINUE 
key, enter a Pause at step (5) (7). Then just before the incremented upper limit (shown in a flashing display) 
reaches the desired upper limit, depress PAUSE --this will stop the program after the next integration. 



If a plotter is available a plot of the function being integrated may be obtained by inserting a plot subroutine 

(0). ' 
respectively. 



at (-9) (0). This plot subroutine scales the calculated X and F(X) by multiplying them by X and Y „ 



UJ 
X 



< 
U 



l- 

UJ 

UJ 
X 



Reference: Numerical Analysis 
by 

Falser S. Kunz 
McGraw-Hill Book Company, Inc. 
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USER INSTRUCTIONS USER INSTRUCTIONS 



Using origin controls, position pen at (0, Y) * 
PRESS: END 

ENTER PROGRAM: Side A followed by Side B 
PRESS: GO TO 
PRESS: - 
PRESS: 0 
PRESS: 0 



SET: 



PROGRAM 



Starting at (-0) (0) enter the program steps to 
form the function f(u) to be integrated; u is 
located in the Y register. After forming f(u) 
place it in the Y register. The last step of 
the subroutine must be : 

RETURN 

NOTE: Registers (-0) thru (-8) are available for 
programming and storage of f(u). 



SET: 



IRUN 



PRESS: END 
PRESS: CONTINUE 

DISPLAY 



Z 
-Y 
X 



ENTER DATA: Ycoef -^Y, X^oef 

PRESS: CONTINUE 

DISPLAY 




ENTER DATA: Increment h 
PRESS: CONTINUE 
DISPLAY 




Each successive "CONTINUE" increments the 
upper limit and evaluates the integral using the 
increment upper limit, Tht integral is plotted 
after each x incrementation. 

If no plot is desired, place a RETURN in (-9)(0) 
and CONTINUES in (0)(1) and (0)(2). 



EXAMPLE 

Obtain the cumulative distribution function of the 
normally distributed random variable X of vari- 
ance 1 and mean value of 0 

The probability density function of X is 
1 

P(X) = ^ 
The cumulative distribution function is given by 

X 

Q(X) = J P(u) du 

- 00 

The lower limit (- oo ) can be replaced by a = -4 
without loss of accuracy. 

The program steps to generate P(u) are given 
on page 2 . 



Data : Ycoef 


= 3760, Xcoef = 


1000, h= .1 


Results 








X 




X + 4 




X 


0.5 


. 000201 


-3.5 


1.0 


.001318 


-3.0 


1.5 


.006178 


-2.5 


2.0 


.022719 


-2.0 


2.5 


. 066775 


-1.5 


3.0 


. 158622 


-1.0 


3.5 


. 308504 


-0.5 


4.0 


. 499968 


-0.0 


4.5 


. 691432 


0.5 


5.0 


. 841314 


1.0 


5.5 


.933162 


1.5 


6.0 


. 977218 


2.0 


6. 5 


.993758 


2.5 


7.0 


.998618 


3.0 


7.5 


. 999736 


3.5 


8.0 


.999937 


4.0 



♦The Y (inches) must be determined by trial. 
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MAXIMUM AND MINIMUM OF Z = Z(X, Y) 



This program will calculate the approximate maximum and minimum of a function of two independent 
variables over specified ranges of these two variables. The method involved is a direct evaluation of the 
function at a specified number of points matrixly distributed about the X - Y grid. 

The program was written mainly for use in conjunction with program 09100-70412 but may also be used 
for such purposes as obtaining upper and lower bounds within a particular area. 

It is recommended that the program be run at least twice within one range (with the sampling number 
increased the second time) to verify the results of the first run. 
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USER INSTRUCTIONS 



USER INSTRUCTIONS (Con't) 



ENTER PROGRAM: Starting Address is (-0) (0) 

PRESS: GO TO (+) (3) (a) 

SET: I PROGRAM r~l 

Enter the program steps which take X from the 
+e register and Y from the +9 register and 
generate Z(X, Y) in the Y register and program 
a RETURN for the final step. The flag is not 
available. (Leave +e and +9 unchanged) 

NOTE: Locations + (3) (a) through + (8) (d) 
are available. (74 steps) 



SET: 



RUN 



PRESS: GO TO (-) (0) (0) 
PRESS: CONTINUE 
DISPLAY 




ENTER RANGE OF X: Xmax' 
PRESS: CONTINUE 
DISPLAY 



Y, X 



mm 



X 




ENTER RANGE OF Y: Ymax 
PRESS: CONTINUE 
DISPLAY 



Y, Y 



mm 



X 




ENTER NUMBER OF SAMPLES: 

Total number of samples to be taken— ♦-X 

PRESS: CONTINUE 

NOTE: The screen may be blanked for several 
minutes, the actual time depending upon 
the specified number of samples and the 
particvilar function involved. 



DISPLAY 




To re-run this program with different inputs. 



EXAMPLE 

Find the max - min of Z = y2 - 
where 

-2 < X<2 
-2 < Y<2 



Allow 100 samples of the function 
Solution: 

-4<Z<4 

Program steps to generate function 



31^ 




67 
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1 1 
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27 








— 1 — 
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36 








410 
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i2 
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36 
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RETURN 


77 









2 



Page 1 



PART NO. 09100- 70411 



9100B ONLY 




Q 

< 
< 

Q_ 



UJ 
_J 

U 
X 



9100B ONLY 
PART NO. 
09100-70412 



PLOT OF Z = Z(X, Y) 



This program will plot in three dimensions a wide variety of functions of two independent variables. 
The user specifies the ranges of the three variables X , Y and Z. If the range of Z is unlaiown, program 
09100-70411 , Maximum and Minimum of Z = Z(X, Y) may be used to determine its range for particular 
ranges of X and Y. 

The algorithm incorporated forms an X - Y grid of the independent variables, scales the grid and rotates 
it in the X - Y plane. It then proceeds to plot the evaluation of the function as incremented lines of elevation at 
scaled distances above the grid. The function is plotted in a cross hatched pattern, holding one variable as a 
parameter and incrementing the other variable then reversing these roles to plot in an orthogonal direction. 

The angle of rotation and degree of resolution are built into the program and the three necessary scale 
factors are generated before the plot begins. The instructions for changing any of these to obtain a different 
perspective of the plot are given at the end of the user instructions. 
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USER INSTRUCTIONS 



USER INSTRUCTIONS (Con't) 



PRESS: STOP 

Using the origin controls, locate the pen in the 
lower left corner of the paper. 

SET: Decimal Wheel at 6 or less 

SET: 



DEGREES 



PRESS: END 

ENTER PROGRAM: Side A followed by Side B 




PRESS: GOTO (+) (3) (a) 
SET: 



PROGRAM 



Enter the program steps which take X from the 
+ e register and Y from the +9 register and 
generate Z(X, Y) . These variables must be left 
in their respective registers (+e and +9) . Leave 
the programmed value of Z(X, Y) in the Y regis- 
ter and program a RETURN for the final step. 
The flag is not available. 

NOTE: Locations + (3) (a) through + (8) (d) 
are available. (74 steps) 

SET: I IRUN I 

•PRESS: END 

PRESS: CONTINUE 

DISPLAY 




ENTER RANGE OF X: X 
PRESS: CONTINUE 
DISPLAY 



max 



^min"*'-^ 




ENTER RANGE OF Y: Yj^ax^Y, Ymin^X 
PRESS: CONTINUE 



DISPLAY 




ENTER RANGE OF Z : Z^^^^^Y, Z^^^X 
PRESS: CONTINUE 



The function will now be plotted. It is self- 
terminating. 

NOTE: Execution of this program destroys the 
-0 and the -1 registers of program 
steps. To re-run the program, side 
B must be re-entered at location -(0)(0) 



EXAMPLE 



Plot the saddle function Z = y^ - x^ 
where 

-2 < X<2 



-2 < Y<2 

The range of Z is 

-4< Z<4 



Program steps to generate function 



3 a 
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RETURN 
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Y MAX. 



LENGTH OF 
Y AXIS 



ZMAX. 



^'YMIN. 



X MIN. 



OVER ALL 
WIDTH 




I 

X MAX 



ZMIN. 



LENGTH OF 
Z AXIS 



0= ANGLE OF ROTATION 



FIGURE 1 



The instructions below explain how the user may modify the perspective of a plot. (Refer to Figure 
1 for a geometrical representation of the terms.) 



1) 



2) 



4) 



5) 



LENGTH OF Z AXIS : The distance from the minimum value of Z to the maximum value of Z of the plot is 
specified in plotter variables in locations (-)(2) (3) through (-)(2)(6) , The present value is 2500 represent- 
ing 2|^ = 5 inches = 1 2. 5 cm ) °" P^^* surface. 



500 



200 



LENGTH OF Y AXIS: The distance from the minimum value of Yto the maximum value of Y of the plot is 
specified in plotter variables in locations (+ ) (1) (b) through (+) (2) (0) . The present value is 2500 represent- 
ing 2500 = c /2500 = 1 9 r on the plot surface. 
500 ^ 200 



3) OVERALL WIDTH OF PLOT: The overall width of the plot is specified in plotter variables in locations 



(-)(1)(1) through (-) (1) (4) . The present value is 6000 representing 6000 = ^2 inches = 30cm 

on the plot surface. ^(^(^ ^ ^^^^ ' 



500 



200 



NUMBER OF GRID LINES: The algorithm plots the function in two directions — across the X axis and 
across the Y axis. The number of grid lines plotted in each direction is specified by the number in storage 
(-)(b) (8) and(-) (b)(9) . This programmed number is actually one less than the desired number. At present, 
a 20 is stored giving 21 grid lines in each direction. 

RESOLUTION: The algorithm plots each grid line in a specified number of increments. This number is 
stored in (-)(3)(8)and(-)(3)(9). The present programmed increment factor is 40. This should be increased 
for higher resolution. 



6) ANGLE OF ROTATION: The plot must be rotated to gain a useful view of the function. This angle is 
specified in storage locations (+) (2) (a) through (+) (2) (c) . The present angle is 45°. 
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9100B STATISTICS PROGRAM LISTING 



u 

X 70801 - MEAN AND STANDARD DEVIATION 

Calculates the mean and standard deviation of n data points. 

70802 - STANDARD DEVIATION AND MEAN OF GROUPED DATA 
Q Calculates the mean and standard deviation of data points of certain frequencies. 

< 70803 - LINEAR REGRESSION 

^ Calculates the best fit of a set of data points to the line y = ax + b, i. e. , the program computes 

^ the estimates a and It also gives the correlation coefficient r. 

CL 



70804 - NORMAL PROBABILITY INTEGRAL 

Evaluates the integral of the normal density function. 



70805 - - CHI SQUARE DISTRIBUTION 2 

Calculates the integral of the Chi Square distribution from 0 up to a value of X for a 



u 

X given number of degrees of freedom. 

^ 70806 - X^- CHI SQUARE EVALUATION EXPECTED VALUES EQUAL (Ej = E) 

Chi square calculation where the expected value of each observation is equal. 

^ 70808 - X - CHI SQUARE EVALUATION EXPECTED VALUES UNEQUAL (E. ^ Ej) 

^ Chi square calculation where the expected values of the observations are not necessarily equal. 

U 

< 70811 - LEAST SQUARES FIT-POWER CURVE 

Calculates coefficients fitting data points (x^, y^) to an equation of the form: y = ax^ 

tj 70812 - LEAST SQUARES FIT- EXPONENTIAL 



Calculates coefficients fitting data points (x^, yj) to an equation of the form: y = ae^^ 



^ 70813 - POISSON DENSITY 

Calculates the various summations associated with the Poisson density to give a probability 

^ based on an input parameter and summation endpoints. 

70816 - RANDOM NUMBER GENERATOR 

Q Random numbers (RN) in the range 0 < RN < 1 are calculated; more than 10, 000 random numbers 

q; may be generated before any previous value is repeated. 
< 

Q 70904 - NORMAL (GAUSSIAN) CURVE PLOT 

< Given mean (M) and variance cr 2 , this program generates a normal curve given by 
Ql 

H- -(X - M)2 

t l_ ^ 

-I y = , e 

IlI 

X This program can be used with Program 70905, Histogram Generation . 

^ 70907 - ONE WAY ANALYSIS OF VARIANCE 

This program separates the total variance in a table of data into that due to chance 

^ and that due to differences between the population means underlying each column of sample data. 

QC 

< 9100B ONLY 



70901 - MULTIPLE LINEAR REGRESSIONS 

Given a set of data points (Xj, Yj, Zj), tiiis program determines the coefficients of 
the linear equation 

Z = a^ + a^X + agY 



STATISTICS (CON»T) 9100B ONLY 



70902 - WEIBULL DISTRIBUTION PARAMETER CALCULATION FOR FAILURE DATA 
Calculates the parameters for the WeibuU distribution and thus estimates of times to failure 
percentages may be made. 

70903 - NON-LINEAR REGRESSION - LEAST SQUARES PARABOLA 
Calculates coefficients fitting data points (x^, y^) to an equation of the form: 

y = ag + a^x + 2l2^^ 

70905 - HISTOGRAM GENERATION WITH PLOT 

This program generates and plots a histogram of ten windows given a set of positive numbers . 
The mean M and variance o" 2 of the data set are computed and stored for use by Program 70904, 
NORMAL CURVE PLOT. 

70906 - HISTOGRAM GENERATION 

This program generates a histogram table of ten windows given a data set of positive numbers. 
In addition it determines the mean M and the variance O" 2 of the data set. 

70908 - F DISTRIBUTION 

This program evaluates the F distribution density function for given values of F, Vj, and 

70909 - TWO WAY ANALYSIS OF VARIANCE (m X 4) 

This program analyses the total statistical variance in a table of data by separating the total 
variance into two parts, the variance among rows, and the variance between columns. These 
variances are then compared to the variance due to random influence. 

70910 - TWO WAY ANALYSIS OF VARIANCE WITH REPLICATES 

This program analyses the total statistical variance of a table of data by separating the total 
variance into three parts; the variance among rows, the variance between columns, and the 
variance due to interaction. 
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MEAN AND STANDARD DEVIATION 



This program calculates the mean, X, and standard deviation, S, of a set of data points by the equations 



X 



1=1 

n 



and / n 2 

I{X|-X) 

i = l 



s 



n- 



Reference: Introduction to the Theory of Statistics 
by Mood and Graybill 



McGraw - Hill 1963 



09100-70801 



USER INSTRUCTIONS 



EXAMPLES 



ENTER PROGRAM (Starting Address is 0 -0) 
PRESS: GO TO (0) (0) or END 

PRESS: CONTINUE 

•DISPLAY 




(i indicates point to be entered) 

ENTER DATA: — ^ X 
PRESS: CONTINUE 




PRESS: SET FLAG 
PRESS: CONTINUE 
DISPLAY 




S = Standard deviation 
X = Mean 

n = Nuraber of data points 



SAMPLE DATA 

5.036 
5.085 
4.991 
4.935 
4.999 
5.031 
5.064 
4.942 
5.051 
5.011 

SAMPLE DATA 

4 
5 
6 
4 
7 
2 



S 
X 
n 



.0493 

5.0145 

10 



S 
X 
n 



1.7512 
4.6667 
6 
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PART NO. 
09100-70802 



MEAN AND STANDARD DEVIATION OF GROUPED DATA 



LxJ 
X 



Q 

< 

U 
< 
CL 



l- 
UJ 



UJ 
X 



Q 

cr 
< 



This program calculates the mean, X, and standard deviation, S, of a set of data points X^, X2, ' ' * , Xj^ with 
frequencies fi> f2» * ' * > respectively. The equations used are 




Zfi(Xi-x)^ 



1^ 

Zfi-i 



Reference: Introduction to the Theory of Statistics 
by Mood and Graybill 

McGraw - Hill 1963 



U 
_l 

u 

X 



Q 

< 

< 
a. 

I- 

LiJ 



LiJ 
X 




UJ 
X 



5 



09100-70802 

USER INSTRUCTIONS 



EXAMPLES 



ENTER PROGRAM (Starting Address is 0 -0) 
PRESS: GO TO (0) (0) [or ENd] 

PRESS: CONTINUE 

DISPLAY 




(i indicates pair of points to be entered) 



ENTER DATA: f. 



PRESS: CONTINUE 



Y. X. 



X 




PRESS: SET FLAG 
PRESS: CONTINUE 
DISPLAY 




S = Standard Deviation 
X = Mean 

n = Number of Data Points 



SAMPLE DATA 
Xi fi 



SAMPLE DATA 



S 
X 
n 



1.4337 
2. 5 
10 



Xi 


fi 






41 


3 






38 


5 


S 


= .9010 


37 


2 


X 


= 39.38 


39 


18 


n 


= 50 


40 


22 
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PART NO. 
09100-70803 



LINEAR ItEGUESSlON AND COHHKI A'lION C'OKKflClENT 



LlI 
X 



Q 
< 

u 
< 

Q- 

h- 
h- 
LJ 

U 
X 



Q 

< 
< 



LlI 



This program calculates the equation of the straight line of best fit of a set of data points. The best fit is 
determined by minimizing the sum of the squares of the deviations of the data points from the line. 

The program calculates m and b for the equation 

Y = mX + b . 

The program also calculates a correlation coefficient r, an indication of goodness of fit. Note - 1 < < 1 where 
the sign corresponds to the slope m. If r = 0 there is no correlation, and if r = ±1 there is perfect correlation 
or a perfect fit. 



The defining equations are 



m = 



Z(Xi -X)(Yi-Y) 

i^i 

" —2 

Z(Xi-x) 

i =1 



b= Y- mX 



where y = 



Zy 

i=l 



and 



n 



Zx 
x= ^ 



Q 

cr 
< 

o 
< 

Q- 



U 

LU 
X 

g 



r = 



Z(Xi-X)(Yi-Y) 

i=i I 

"^ZCXi-xf Z(Yi-Yf 

i = l 



Reference: Mathematical Statistics 
by John E. Freund 

Prentice - Hall 1962 




09100-70803 



USER INSTRUCTIONS 



EXAMPLES 



X 


Y 






26 


92 






30 


85 


r = 


-.96 


44 


78 


b = 


121.04 


50 


81 


m = 


-1.03 


62 


54 






68 


51 


Y = 


-1.03X 


74 


40 






X 


Y 






0 


1 






1 


3 


r = 


. 9 


2 


2 


b = 


1.2 


3 


4 


m = 


.9 


4 


5 


Y = 


.9X + 1 



ENTER PROGRAM (Starting Address is 0 -0) 
PRESS: GO TO (0) (0) [or ENd] 
PRESS: CONTINUE 
DISPLAY 




(i indicates pair of points to be entered) 



ENTER DATA: Y. 



PRESS: CONTINUE 



Y, X. 



X 




PRESS: SET FLAG 
PRESS: CONTINUE 
DISPLAY 
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STOP 
IF FLAG 
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DISPLAY I TO INDICATE FIRST ENT^Y 



Xi 



Yi 



BRANCH After last entry 



' ent|:r Xj and y 
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CALCULATE SYi^ 
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1 



PAGE 2 



PART NO. 09100-70803 




v.. 



PAGE 3 



Oispfay 
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X 
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ROLL ^ 

~ X^ 
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CALCULATE b 
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star Age 



i 







> GA-L-GUL-aItE- m 
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NORMAL PROBABILITY INTKGRAL 
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LlI 
X 



This program computes the integral of the standardized normal distribution 



Q 
< 

< 

CL 



Ixi 
-J 

U 
X 

2j 



Q 
< 



P(X) 



The following equations are used 



where 



_y2 CO 



-^'^^=7r' 1-3 ■(2n.l) ^ 



2n+i 



u 
_j 

u 

X 



Reference: Handbook of Mathematical Functions 
by Abramowitz and Stegan 

National Bureau of Standards 1964 
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09100-70804 

USER INSTRUCTIONS 



EXAMPLES 



ENTER PROGRAM (Starting Address is 0 -0) 
PRESS: GO TO (0) (0) or END 
'PRESS: CONTINUE 
DISPLAY 




ENTER DATA: X- 



PRESS: CONTINUE 
DISPLAY 




X = .3 
X = -.3 

X = 0 
X = 3 



P(X) = . 618 
P(X) = . 382 
P(X) = . 5 
P(X) = . 999 
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(-70804 




X 
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ROLl ^ 

X 

TT 



'i, , ..1. 
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r ! ROLL ^ 



25 
27 
36 
27 
25 
22 I 
74 ^ 
35 j 

02 I 

J. 
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"j 4oJ 
H 3 i 
• 22 I 
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LlI 
X 



Q 
< 

< 

QL 



UJ 



PART NO. 
09100-70805 



X - CHI SQUARE DISTRIBUTION 



This program evaluates the Chi Square Distribution Integral for a given value of X and 1/ degrees of freedom; 
i.e., the program evaluates 



P(X ,!/) = 



f -r^4-' e-\ o<x 



The series approximation used to evaluate the integral is 



LjJ 
X 



Q 
01 
< 



UJ 



P(X ,!/)=( ) p(ZAt2) I'-'Z (z/ + 2)(Z/ + 4)-(Z/+2r)J 



Reference: Handbook of Mathematical Functions 
by Abramowitz and Stegan 

National Bureau of Standards 1964 
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UJ 
X 



09100-70805 



USER INSTRUCTIONS 



EXAMPLES 



ENTER PROGRAM (Starting Address is 0 -0) 
PRESS: GO TO (0) (0) [or ENd] 

PRESS: CONTINUE 

2 



ENTER DATA: X 
PRESS: CONTINUE 
DISPLAY 



•Y, V 



X 





V 



P(7.88, 1) = .995 
P(10.6, 2) = .995 
P(12.8, 17) = . 251 

GENERAL FORM 
P(X2,Z/) 
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CL 



Display 



CLEAR T2O 



1/ 



35 



40 



f 



15 



3 
a 



25 



In X 



65 



^TORE--E^ATA 



33 



02 



I 35 * 



) 



40 



74 



27 



15 



£/ 1 CHG SIGN 



CALCULATE 



CALCULATE ^ 



int X 



IF X=:>' 



04 



03 



TRUE IF 1/ 



In X 



02 



25 



Tel 



~~wr 



-V2 



IS ODD 



BRANCHES HERE IF 



f 



0 iP entIr £and J( 



z/ IS EVEN 
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^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 

CHI SQUARE EVALUATION 
EXPECTED VALUES EQUAL (Ej = E) 



2 

This program calculates the value of X by the equation 



i=i t 

where n 

Oj^ — observed frequency ^ Qj 

E — expected frequency of Oj^ is E = 



Reference: Mathematical Statistics 
by John E. Freund 



Prentice - Hall 1962 



09100-70806 

USER INSTRUCTIONS 



EXAMPLES 



ENTER PROGRAM (Starting Address is 0 - 0) 
PRESS; GO TO (0) (0) [or ENd] 

PRESS: CONTINUE-^ 

DISPLAY 




(i indicates point to be entered) 



ENTER DATA: OP- 
PRESS: CONTINUE 



•X 




PRESS: SET FLAG 
PRESS: CONTINUE 
DISPLAY 




The table shows the observed and expected frequencies 
in tossing a die 120 times. Calculate for testing 
if the die is fair. 



FACE 



Oj Observed Frequency 
Ej Expected Frequency 
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1 
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3 


4 


5 
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< 

< 



LlJ 
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v: 
< 



LiJ 

UJ 
X 



Q 
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I.JJ 
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LjJ 



step 



0 



4 



Key 



END 



1 

c 

'7 



I 3 

f 6 
\ 8 

^¥ 
j — 

i ^ 



Code 



17 



46 



Display 



y 



Storage 



DISPLAY 




■i - \ 



J 



X CHI SQUARE EVALUATION 
▲ EXPECTED VALUES UNEQUAL (Ei ^ Ej) 



.June 1969 
PART NO. 
09100-70808 



This program calculates the value of X by the equation 

i=i "^i 

where Oj — observed frequency 

Ej^ — expected frequency of Oj 



Reference: Mathematical Statistics 
by John E. Freund 

Prentice - Hall 1962 



▲ Denotes Revision 



09100-70808 

USER INSTRUCTIONS 



EXAMPLES 



ENTER PROGRAM (Starting Address is 0 -0) 
PRESS: GO TO (0) (0) [or ENd] 

PRESS: CONTINUE-^ 

DISPLAY 




(i indicates points to be entered) 
ENTER DATA: Oi Y, E^ X 
PRESS: CONTINUE 




PRESS: SET FLAG 
PRESS: CONTINUE 
DISPLAY 




The table shows the observed and expected frequencies 
of some numbers. Calculate X^. 



i 


1 2 


3 


4 


5 


6 


Oi 


Observed 
~ Frequency 


8 50 


47 


56 


5 


14 


Ei 


Expected 
~ Frequency 


9.6 46.75 


51.85 


54.4 


8.25 


9.15 



X = 4.844 
n =6 



n 



V. 
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0 



CLEAR 



20 



iisplay 



^'^ ! 0' j DISPLAY 1 TO INDICATE flRST ENTRY 

Acc + I 60 j 



f 

STOP 



15 f RECALL i 



41 

IF FLAG I 4 3 
1 



Ei 



01 




7 





1 34 1^ 


xty 


1 I 


^^^^ 


27 ! 


X 






' 25 I 




Tot 








35 i 



ACC + I 60 [ 

0 00 ; 

GOTO( )( ) I 44 ' 

0 00 [ 

"3 1 03j_ 

RECALL I 6 I 

4^ 27 ; 

""""""1 oT ^ 



0 INDICATE 



NEXT ENTRY 



0 



BRANCH AFTER LAST 



CALCULATE AND 



0 



ENTER EXPECTED VALUE 
AND " OBSERVED " VAt-UE 



ENTRY 



1 ' 
J 



MCREMENT 



.^LgAR ^AND-.^^BRANCH-^OR"--N E-^ EI^TRY 



- ^34_^ 

0 " 00 1 

ROLL 4f 131^ 




END 



46 
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DISPLAY 




PART NO. 
09100-70811 



LEAST SQUARES FIT - POWER CURVE 



UJ 
X 



Q 
< 

< 
a. 

\- 
u 

u 

X 



Q 
< 
U 



This program computes the least squares fit and correlation coefficient of N pairs of data points for a power 
curve of the form: 



The equation is linearized into 



lnY = blnX+ Ina 



where 



and 



b= 



NldnX lnY)-ZlnXllnY 
NZ(lnX)2 -(ZlnX)2 



r = 



NllnXInY -(ZlnX)(IlnY) 



NldnX) -(ZinXr 



NZ(lnY)^-(Z InY^ 



LJ 
_J 

liJ 
X 



Note: 



ZinY ZinX ^ 
In a= — r, — b 



N 



N 



Xj > 0 and Yj > 0 , i =1, --^N 



Q 

a: 
< 

< 

Reference: Statistical Theory and Methodology in Science and Engineering 
byK.A. Brownlee 

UJ 

-I John Wiley and Sons 1965 

UJ 
X 



Q 
01 
< 

U 
< 




November 15, 1968 
09100-70811 



USER INSTRUCTIONS 



EXAMPLES 



ENTER PROGRAM (Starting Address is 0-0) 
PRESS: GO TO (0) (0) [or ENd] 

PRESS: CONTINUE 

DISPLAY 




(i indicates pair of points to be entered) 
ENTER DATA: Y, X 

PRESS: CONTINUE 




YES 

PRESS: SET FLAG 
PRESS: CONTINUE 
DISPLAY 




Y = aX^ 



X 


Y 


1.0001 


25. 58 


3.16 


14.55 


10 


9.26 


31.6 


5. 63 


100 


3.48 


316 


2.12 


1000 


1.7 



0.9964 
0.4022 



a = 23. 5871 



Y = 23. 5871X" 



4022 



X 


Y 


1 


3 


2 


4.2574 


3 


5.2248 


4 


6.0417 


5 


6. 7624 



r = 1.000 
b = . 505 
a = 3.000 



Y = 3X 



505 
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Kef 



Display 
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ORAGE AND 
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ENTER Xj ANP Yj 
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09100-70812 



LEAST SQUARES FIT - EXPONENTIAL 



This program computes the least squares fit and a correlation coefficient of n pairs of data points for an ex- 

bx 



ponential function of the form: 
The equation is linearized into 



or 



y = ae' 

Iny = In a +bx 
Y=A4-bx 



Using a linear regression method, 



A = 



nIxY- ZxZY 
nlx^ - (Zx)^ 

ZY-blx 



a=eA 



the correlation coefficient is given by 



r = 



nIxY-Zx ZY 



y[nZx^-(Zx)2][nZY^-(ZY)'] 



Note: Yj > 0 i = 1 , • • • , n 



Reference: Statistical Theory and Methodology in Science and Engineering 
byK.A. Brownlee 

John Wiley and Sons 1965 



November 15, 1968 
09100-70812 



USER INSTRUCTIONS 



EXAMPLES 



ENTER PROGRAM (Starting Address is 0-0) 
PRESS: GO TO (0) (0) [or ENd] 

PRESS: CONTINUE-* 

DISPLAY 




(i indicates pair of points to be entered) 



ENTER DATA: Yi 



PRESS: CONTINUE 



Y, Xj 



X 




YES 

PRESS: SET FLAG 
PRESS: CONTINUE 
DISPLAY 




GENERAL FORM: Y = ae^^ 



X 


Y 








7. 12 






1 9 


11 fi7 


r 


= 1.000 


1 


rtrt, ( 0 


b 


= .707 


7 d 


Q^l^ fid 


a 
Y 


= 4.998 

= 4.998e-'^^'^^ 


X 


Y 






.72 


2.16 






1.31 


1.61 


r 


= - 1. 000 


1.95 


1.16 


b 


= - . 503 


2.58 


.85 


a 
Y 


= 3.103 

= 3. 103e" • ^^^^ 



0 



in 
I 

ro 



O 



CLEAR 
X-*{ } 

3 

c 

STOP 
IF FLAG 

In X 

ACC 4" 



— J 



jy^( ) 

ROLL ^ 
CLEAR X 



20 
23 
I 3 
23 
14 

23 i 
16 

01 1 
23 
17 
41 

43 
03 
06 
30 

65 . 

6^" 

27 

36 

30 

24 

1 4 
33 

24 ' 
14 1 
25 
36 I 
16 

33';' 
40^ 
1 6 ' 
22J 

2 7 \ 

- -i 
36 J 

1 3 I 

33t 

— ^ 

40 ' 

37: 

-I 

27 " 
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V 







i 






>■ 






s 








CLEAR ST 


DRAGE AND C 


)ISPLAY 1 


TO INDICA 


FE FIRST EN" 


FRY ; 












1 






J 

8 






- — - 1 

i 




yi 


0 






1 


t>TEST FOR 


.last^j;ntr' 


Y I 



ENTfR xj ANQ yj 



CALCULATE Inyi 



CALCULATE , accumulate: AND STORE 































































> INCREMEt 


sIT COUNTER 
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4^ 



J 

GOTO( )( ) 

8^ 



c 

RCL 

T 

T 

"x" 

' IT 

IT"" 
IT" 



01 

33 

25 

44 

00 

10 

I 7 

27 

01 

34 

40 

I 7 

16 
36 
27 
6 

36 
25_ 
34 
40 

'i. 

I 7 
27 

"T3~ 
36 
12 
27 
36 
25 
34 
40 
I 3_ 
17 

""2 7 

ri4 

36 
15 
27 
36 
2"5 
34 
13 



DECREMENT COUNTER 



CALCULAtE nZxIny 




CALCULATE AND STORE 



UALCOCATE AND sTORE 



nXx Iny - 'n y 



CArCULAT£""lOTr^5T0RE 



nZrn^y^rirtyf 
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"/or 
c 

xZy 



36 
25 
76 
27 



CALCULATQ ^[ nZ x'"-(i; x")' J[nl In'y - ( I Iri y )'] 




step 

""1 



Key 



0 



4 ■ 



■ i 

9 



L 1. 



1 ! 



I 3 
4 , 
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Display 



Storage 
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POISSO.V DENSITY 



UJ 
X 



Q 

cr 
< 

u 
< 

Ql 
h- 
LlI 



LU 



The Poisson density function is defined by f (n; X ) = 



. n -X 
X e 



where X may be estimated by 



X = the expected value of (n = 0, 1 , 2, . . . ) 



CO 

I 

n = 0 



V n - X 
X e 



00 



= e 



I4r 



e e =1 



n = 0 



The Poisson density function is a descrete density which is used to evaluate such things as component failure 
probabilities. It is also used to approximate the Binomial Distribution when the number of events (N) is large 
and the probability that an event will happen (p) is small i. e. , a general rule of thumb is for p ^ . 1 and 
X-Np< 5. 



^ Reference: Mathematical Statistics 

< by John E. Freund 

y 1962 Prentice-Hall 



LU 



Q 

< 

< 

I- 
I- 
u 



Ijj 
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USER INSTRUCTIONS 



EXAMPLES 



ENTER PROGRAM (Starting Address is 0 - 0) 
PRESS: GO TO (0) (0) [or ENd] 
PRESS: CONTINUE 

A 

ENTER DATA: Z, Y, X -•►X 

'PRESS: CONTINUE 
DISPLAY 



Z 
Y 

X 



ni A 
1 f(n;X) 
n =n| 

f(ni;X) 




•PRESS: CONTINUE 



A Poisson distribution is given by 



Find: a) f (0 ; . 72) 



X = . 72, nj = 0, = 0 
f(0; .72) = .48675226 



b) f(3; .72) 

A 

X = . 72 
f (3; .72) = .03027988 



72, n^ = 3, ng = 3 



If 3% of the electric bulbs manufactured by a 
company are defective find the probability that 
in a sample of 100 bulbs 

a) Between 1 and 3 bulbs will be defective. 

Expected no."^ 

of bulbs that ^ = X = (. 03) (100) - 3 
are defectivej 

3 

Y f(n;3) = . 59744482 
n =1 



where X = 3, n^ = 1, = 3 



b) Less than or equal to 2 bulbs are 
defective 



Z f(n;3) = . 42319008 
n =0 



where X =3, n^^ = 0, = 2 



v. 
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o 



I 

ID 



o 



r^2 



CLEAR 
STOP 

c 



20 
41 
23 
16 





40 






14 


> 


ROLL ^ 


22 




X->( ) 


23 




d 


17 ' 






3~ 




CHG SIGN 


32 






74 ' 






27 




c 


16 . 




In X 


65 






27 , 




b 


" 14 


r 


X 


36 






30 






74 




ROLL ^ 


22 ' 




X 


36 






40 




"a 


13 ; 




b 


14 






27 ' 






2 7 






01 




— 


34 




IF x>y 


53 




02 




1 3 


ROLL >^ 


31 




X 


36 




ROLL ^ 


22 . 




GOTO( )( ) 


44 




2 


02 




0 


00 ' 




... 


1 3 . 


ROLL >f 


22 


t 


27 


0 


00 • 



STORE DfTA 



ENTER DATA; rig.n^.X 



CALCULATE ^"^;C"' 



DECREMENT n 





1 

1 ■ 






GONTINUE 


__.^CAk-CUI=ATIMG 
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xzy 

IF X=>' 

arc ▼ 



i3 



ACC 4- 

ROLL ^ 
RCL 
STOP 
CLEAR X 

X-^{ ) 

d ~ 

ROLL ^ 
IF x=y 

3 
+ 




A 5 



r 

GOTO( )( ) 

0 

END 



30 
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01 : 
3o7 

25 1 
35 [ 
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27 
60 • 
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6J_ 
41 

yT 
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I 7 
22 
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00 
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zT' 

01 
33 
40 

14 . 
16 
44 , 
00 
13 1 
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IF ni! =0, 



CALCULATE 



POSITION [Display 



ENTER 1 



AND X f(n,^) 
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RECALL X !AND CONTINUE SUMMATION 
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RANDOM NUMBER GENERATOR 



This program calculates random numbers (RN) in the range 0 < RN. < 1 using the formula given below: 



RN. = +RN(._y] « - Int. I [-^ * RN,j_j,] «| 



RN. is the current random number and RN,. is the last calculated random number. More than 10,000 
1 (i-l) 



random numbers may be generated before values are repeated. 



LlI 



Q 
< 

u 



LlI 
X 



Q 

cr 
< 

< 

Q- 



UJ 
_l 

X 



< 



H 
LxJ 
_l 

U 
X 



09100-70816 



USER INSTRUCTIONS 



EXAMPLE 



ENTER PROGRAM: (Starting Address is 0 - 0) 
•PRESS: GO TO (0) (0) [or ENd] 
-PRESS: CONTINUE 
DISPLAY 




-TO RESET PROBLEM: 



RN^ = . 5310 
RNg = .6918 
RNg = .3712 
RN^ = . 6890 
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storage 



0 



CLEAR 

X 
X 



1, 
t 

X 

int X 



STOP 

GOTO( )( 

END 



• 20 ' 
27 ' 
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33 ^ 

25 
' 27 

36 
, 25 
, 27 

J 
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36 ,J 

'1 

' 

27 
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■ 34 \ 
> 25 
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) 44 
00 
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B RANCH T(p CAL CU LAT E 



DISPl-AY 
NEXT RAND OIVt NUMBER 
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t ! 
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< 
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NORMAL CURVE PLOT 



This program generates a normal curve given mean and variance q- . The program determines 



Y from: 



Y = 



(h- 



o- V 27r 

by varying h from 0 to 10 in increments of 0. 1. The program requires that M, and cr", be stored in the f and 

h 

e registers respectively prior to execution. This program was intended to be used in conjunction with program 
09100-70905 Histogram Generation ( with Plot). To plot in units of centimeters, place a 2 in locations (2) (5) 
and (2) (c). 
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UJ 
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CL 
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UJ 
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USER INSTRUCTIONS 


EXAMPLE 




SET: Decimal Wheel at 6 or less 


Mj^ = 4.679 


cr^2 = 3.132 
h 


Using the orgin controls, locate the pen at 
X = 1 in., Y = 1 in. 


Spp nlnt liplnw 




ENTER PROGRAM: (Starting Address is 0-0) 






PRESS: END 






PRESS: CONTINUE 
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ONE WAY ANALYSIS OF VARIANCE m x n 



UJ 



Q 

< 
< 

CL 



h- 

LU 
_l 

UJ 
X 



Q 
< 

< 



This program separates the total variance in a table of data into a portion due to chance and a portion 
due to differences between and population means underlying each column of sample data. It then calculates the 
variance ratio. 



with 



where 



nm(m - 1) 



n 
3?1 



(Xj - X) 



m 

ill 



n 



(X.. -X.) 
1] ] 



1/ 



V 



n - 1 degrees of freedom 

n (m - 1) degrees of freedom 



X = 



X. - 
] 



mn 
n 



m 



n 



n 



X. 



X.. 

13 



LxJ 
_J 

LlI 
X 



Q 
< 

< 

CL 



The equation used by the program is: 



F = 



nm(m - 1) j - l 


m 

.2, X.. 

Li = 1 i]J 


2 

1 

mn 


n m 

.E, .E, X.. 

J = 1 1 = 1 i]_ 


1 


r n m 2 1 
(n-l)J.E. .Y,. X.. - ^ 
^ M ] = 1 1 = 1 1] mn 


n m - 

. E , . X.. 

] = 1 1 = 1 1] 


m j = 1 


m 

. E. X.. 
1 = 1 1] 


2 1 

mn 


~ n m 

.E. . E. 
J = 1 1 = 1 



12 



UJ 

UJ 
X 



< 




Reference: Freund, John E. , Mathematical Statistics, Prentice Hall (1962) 
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USER INSTRUCTIONS 



EXAMPLE 



PRESS: END 

ENTER PROGRAM: Side A at address 0-rO 

PRESS: CONTINUE 

DISPLAY 




ENTER DATA: n Columns -*-Y, m Rows-^'X 
PRESS: CONTINUE 
-DISPLAY 



Z 
Y 
X 



jth Column 
ith Row 

"Enter data 
Column by Column 



ENTER DATA: X, 



1] 



PRESS: CONTINUE 



X 




DISPLAY 



YES 




PRESS: 



F^variance ratio 
2/^- degrees of free- 
dom in numerator 
Z^=degrees of 
freedom in 
denominator 
CONTINUE for new case 



General form 



j Columns 



i Rows 



11 



X. 



X 



ml 



Columns 



Rows 



In 



X 



mn 



172 


203 


161 


185 


172 


149 


165 


187 


183 


194 


183 


156 


212 


179 


144 


F = 


5.01 




^1 ^ 


2 




^2 = 


12 





2 
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ROLL ^ 
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I I 
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34 

12 



6 

(+} 
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{+) 



xty 

xty 
c 

X 

t 

1 

y^i ) 
f 

d 

t 
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X 

t 
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X 

f 

CONT 
END 
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MULTIPLE LINEAR REGRESSION 



This program fits any number of data points (X., Y^, to a linear, two variable equation of the form: 

Z=a +aiX+a„Y 
o 1 I 

where X and Y are the independent variables. 
Development: 

The constants a , a^^, and ag of the equation may be found by solving simultaneously the following normal 
equations which represent the least square plane (approximating plane) formed by the data points. 



Zz = 


a n 
o 


+ a^^ Z X 


Zxz 


= a 

0 


Z X + a^^ 


Xyz 


= a 

o 


Z Y + a^ 



In the program the constant is found from solving the equations by matrix algebra. Therefore, 

n( Zx^ Zyz - Z xz Zxy) - Zx(Z X Zyz - Zy Zxz) + Zz( Zx Z xy - Zy Zx^) 

Where D (the determinant) = 







D 


n 


Zx 


Zy 


Z X 


Zx2 


Z XY 


Zy 


Z XY 


Zy^ 



After finding ag, the solution is reduced to two equations in two imknowns which are: 



M = a n+a^ Zx 
o 1 

N = a Z X + a, Zx' 
o 1 



where M = ( Z Z - ag Z Y) 



N = ( Zxz - agZ XY) 



These two equations are then solved for a^ and a^ , 



Reference: 

Introduction to the Theory of Statistics 
Mood and Graybill 
McGraw-Hill, 1963 
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USER INSTRUCTIONS 



EXAMPLES 



PRESS: END 

ENTER PROGRAM: Side A followed by Side B 
PRESS: CONTINUE 
'DISPLAY 




ENTER DATA: Z.- 



PRESS: CONTINUE 



Z, Y.^ Y, Xi 



X 




PRESS: SET FLAG 
PRESS: CONTINUE 
DISPLAY 




To reset problem, PRESS: CONTINUE 



(A) Equation of the form: 

Z = + aj X + a2Y 
Input data: 



X 


Y 


Z 


1 


0 


3 


0 


1 


4 


1 


1 


6 


3 


4 


19 


2 


2 


11 



Solution: 

Z = 1 + 2X + 3Y 

(B) Equation of the form : 

Z=a + a, (logX) + a (logY) 
o 1 ^ 

Note to enter data ; 

ENTER: Zj »-X 

PRESS: f 

ENTER: Y^ ►X 

PRESS: logX 
PRESS: f 
ENTER: X,- »^X 



PRESS: logX 
Input data: 



X 


Y 


Z 


1 


2 


4. 


6505 


1 


1 


4. 


5 


4 


3.63 


5. 


9841 


10 


5 


6 


8495 


8 


16 


6 


9082 


13 


7 


7 


1504 


3 


10 


5 


9542 



Solution: 



Z = 4. 5 + 2 (logX) + .4999 (log Y) 



2 
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WEIDULL DISTRIBUTION PARAMETER 
CALCULATION FOR FAILURE DATA 



9100B ONLY 
PART NO. 
09100-70902 



The Weibull probability density function is given by 



2 f(x)= . e ' 9 

< 

CL and the cummulative distribution function is given by 

t F(x)= \-e e' 



For a set of data, the Weibull parameters b and 9 are to be calculated for these functions. 



UJ 
X 

A common application is to use Weibull analysis for failure data where all samples are tested to failure. To use 
^ the program, list the items in order of increasing time to failure. The number of items and times to failure are 

entered. The parameters b , 6 , and r are displayed, r is a correlation coefficient indicating goodness of fit. 

The time required for 10% (Bj^q) ^^^^ displayed and times to other failure percentages (B(^) may be re- 
^ quested. 

< 

^ The Median Rank (M. R. ) is calculated by the equation 

£ i-.3 



M.R.= 



N +4 

where j = failure order number 

N = number of samples tested 
This is an approximation of F(X). 



UJ 
X 

I— ' The commulative distribution function is linearized into the form 



bLnX-bLn^ = LnLn (jt^^) 



Q 
01 

< 

^ A least squares fit is performed which calculates the slope, intercept, and correlation coefficient. The solution 

CL is similar to the linear regression program 09100-70803. Thus estimates of b and 9 are obtained. 

h- 
h- 
UJ 
_J 

<: 

UJ 
X 



Q 

< 
< 
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USER INSTRUCTIONS 



EXAMPLES 



PRESS: END 

ENTER PROGRAM: Side A followed by Side B 
PRESS: CONTINUE 
ENTER DATA: N — »- X 
►PRESS: CONTINUE 
DISPLAY 



Z 
Y 
X 



(j indicates point to be entered) 



ENTER DATA: t. 



X (Data must be 
ordered) 




PRESS: CONTINUE 
DISPLAY 



Z 
Y 
X 



PRESS: CONTINUE 
DISPLAY 




(first time will be 10%) 
-ENTER DATA: 

TO RESTART A NEW PROBLEM 
PRESS: END 



TEST DATA 
Hours to failure (must be ordered) 
34 



60 
75 
95 
119 
158 



N = 6 (number of samples) 



= .999 
= 104.091 
= 1.953 



B_ = 32.887 
li) 



B 



90 



159.539 



2 
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NON-LINEAR REGRESSION 
THE LEAST SQUARE PARABOLA 



9100B ONLY 
PART NO 
09100-70903 



Development: 



The least square parabola approximating the set of points (X^, Y^) (X^ Y^) has the equation: 

2 



Y = a_ + a^x + anX 
o 1 2 



where the constants a^, a.^, and ag are determined by solving simultaneously the following normal equations: 



2 

2 Y = a n + a- Sx + a^ 2X 
o 1 2 

E XY = a 2 X + a, E X^ + a„ S X^ 

IX Y = a^ SX"^ + a. S X*^ + a^ E X^ 
o 1 2 



In the program the constant ag is found by matrix algebra; the determinate (D) involved in the solution is: 



D 



n 

Ex 
Ex^ 



Ex E x^ 
Ex^ EX^ 
Ex^ E x^ 



The equation for ag is therefore: 

ag = (n(Ex^Ex^Y- Ex^ ExY) - E x( ExE x^Y - E x^ ExY) +E Y [ex Ex^ - (Ex^) ^] ) 



D 



After finding ag the solution is reduced to two equations in two tinknowns which are: 



where M = E XY - ag E X*^ 



and 



N=a n + a^EX 
o 1 

M = a Ex + a. EX^ 
o 1 

N = Ey - ag EX^ 



These equations are then solved for a^ and a^. 

NOTE: Curves with the following equations may also be fitted with this program: 

Y = a +aiX 

o 1 

logY = + a^X 

2 

logY = a^ + aj^X + agX 

Y = a^ + a^ logX 
logY = \ + logX 

logY = a^ + a^ (logX) + ag (logX)^ 
An equation of the form of (6) is solved in the examples. 

The general form, representing all of these equations, which can be fitted is: 

f(Y) = a^ + aj f(X) + a2f^ (X) 



(1) 
(2) 
(3) 
(4) 
(5) 
(6) 



Reference: 



Publisher — McGraw-Hill 

Authors -- Alexander M. Mood & Franklin A. Gray bill 
Introduction into the Theory of Statistics -- 2nd Edition (1961' 
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PART NO. 
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USER INSTRUCTIONS 



EXAMPLES 



PRESS: END 

ENTER PROGRAM: Side A followed by Side B 
PRESS: END 
PRESS: CONTINUE 
•DISPLAY 



Z 
Y 
X 



(i indicates 
pair of points 
to be entered) 



ENTER DATA: Yj Y, Xj 
PRESS: CONTINUE 




PRESS: SET FLAG 
PRESS: CONTINUE 
DISPLAY 




To calculate coefficients for new data: 
PRESS: END 



(A) Equation of the form: 
Data : 



Y = a^+a jX+a2 X 



X 


Y 


3 


29 


0 


2 


5 


67 


2 


16 


1.5 


11 


4 


46 


1 


7 



Solution: Y = 2 + 3X + 2X' 



(B) Equation of the form : 

log Y = a^+a^logX +a2 (log X) 

Note: Data to be entered is logY^ logX^; 
therefore to enter data sets: 



Data: 



ENTER: 


Y.-^X 


PRESS: 


log X 


PRESS: 


f 


ENTER: 


Xi^Y 


PRESS: 


logX 


X 


Y 


1 


2.7183 


2 


35.1595 


3 


245.3746 


4 


1188.7946 


5 


4530.5750 



Solution: logY = .43 + 3.0 logX + 2.30 (log X)^ 



2 



o r 
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[31 I I5j 

-f- 1351 
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Key 
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Display 
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— 34 



7\0l ROLL >^ 
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-44 



J J 



4 



9", 



r- 



«1 



i3 



|5' : I \ i '51 I ] 

'riri^r'T"4Tl srri ir 

g j..,J.-- i-^^-^-l- 

i^t --f-^-n- -f- p-J 1- 



4 



J J^. 



Zt 




4 



9 ^ 



P.: 



■1 




9100B ONLY 

mSTOGRAM GENERATION (WITH PLOT) 



This program generates and plots a histogram of ten windows given a data set of positive numbers. In 
addition, it determines the mean (M^) and the variance(cr ^2) of the raw data, and the mean (M^) and the 
variance ( a ^2) of the normalized histogram data. Since the raw data is normalized by the program to values 
0< h < 10, the new mean and variance are given by 

^h =5l 
w 

W2 

where W is the histogram window width (normalizing factor)*. The program plots the histogram and stores Mj^ 
and a- ^2 for use by program 09100-70904 which can be used to plot a normal cvirve over the histogram. 

This program uses Indirect Addressing and is self-destructing of the registers +(0,0) through +(d,d). 
Thus, to rerun, the A side must be re-entered in the calculator. 



NOTE: To generate a histogram with 1 cm. wide windows, place 2's in locations (-)(6)(c), (-)(7)(6), and 
(-)(8)(5). 
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* The window width W is chosen such that all normalized data entries X/W 
will lie between 0 and 10. Thus, if the data ranges from 0-^ 200, a W of 
of 20 would be proper. 



9100B ONLY 
PART NO. 
09100-70905 



USER INSTRUCTIONS 



USER INSTRUCTIONS (Con't) 



PRESS: END 

Using the orgin controls, locate the pen at 
X = 1 in. , Y = 1 in. 

SET: Decimal Wheel at 6 or less 

ENTER program: Side A followed by Side B 

PRESS: CONTINUE 

DISPLAY 



Z 
Y 
X 



ENTER DATA: W — 
PRESS: CONTINUE 
DISPLAY 



X 




N is the 
number of 
data points 
entered. 



ENTER DATA: X^- 
PRESS: CONTINUE 



'X 




PRESS: SET FLAG 
PRESS: CONTINUE 
DISPLAY 




(% of data points 
in Group) 
(No. of data points 
in Group) 
(Group #) 



PRESS: CONTINUE 
Plot Window 




DISPLAY 




PRESS: CONTINUE 
DISPLAY 




EXAMPLE 



The data set is: 

104, 92, 83, 78, 58, 135, 146, 24, 74, 85, 81, 
128, 140, 113, 79, 78, 53, 42, 34, 85, 96, 110, 
133, 158, 171, 108 , 84 , 90 , 73, 11, 51, 118 , 68, 
139, 92, 109, 89, 124, 91, 116. 

The data varies between 0 and 200 so W is 
chosen to be 20. 

Result 



Group 


^A 


% 


1 


1 


2.5 


2 


2 


5. 


3 


4 


10 


4 


6 


15. 


5 


11 


27.5 


6 


7 


17.5 


7 


5 


12.5 


8 


3 


7.5 


9 


1 


2.5 


10 


0 


0 



N = 40 



a 2 

X 

M„ 



1252.644 
93.575 



a- ^2= 3.132 
Mj^ =4.679 



The histogram plot is given with the normal 
curve superimposed. The normal curve 
resulted from running program 09100-70904 
following completion of the Histogram 
Generation program. 



2 



Pase 1 



PART NO. 09100-70905 



910qB ONLY_ 



CLEAR 

X->( ) 

9 
8 
7 
6 
5 

X^l ) 

4 

X-*-l ) 

3 

STOP 

3 



0 

CONT 
CONT 
CONT 
CONT 



20 
23 
I I 
23 
10 
23 
07 
23 
06 
23 
05 
23 
04 
23 
03 
41 
23 
13 



CLEAR X 37 

^-►t ) 2 3 

2 02 

GOTO ( ) 144 

r 



16 
00 
47 
47 
47 
47 



ENTER 



W 0 



0 



C X-t'U 2 3 

0 00 

JC-»( ) 2 3 

1 01 
1 01 

CHG SIGN 32 

ROLL 4, 31 

I 525 

1 of 

+ 33 

t 27 

I 25 

CONT 47 

STOP 41 

Cf IF FLAG 43 

W d 17 

d 17 

t i27 

X "36" 

Acc + 60 

x:ty 

a 13 

— 35 

GOTO! ) 44 

— 34 

0 00 

"'2 02"" 

GOTO ( ) 44 



1 

'(-)- 
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IITSTOGRAM GENEllATlON (WITHOUT PLOT) 



This program generates a histogram table of ten windows given a data set of positive numbers. In 
addition, it determines the mean (M^) and the variance (cr^2) of the raw data, and the mean (M^) and variance 
(cr ^2) of the normalized histogram data. Since the raw data is normalized by the program to values 0< h< 10, 
the new mean and variance are given by 



= M 
h X 

W 



^ where W is the histogram window width (normalization factor). The window width W is chosen such that all 

^ normalized data entries X/W will lie between 0 and 10„ Thus, if the data ranges from 0 ->-200, a W of 20 

O would be proper. 

This program uses Indirect Addressing. The (+) registers are used for storage whereas the (— ) 
"lij registers are used for program steps. 
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USER INSTRUCTIONS 



USER INSTRUCTIONS (Con't) 



ENTER PROGRAM: (Starting Address is (-0)(0) ) 

PRESS: GO TO (-) (0) (0) 
PRESS: CONTINUE 
DISPLAY 




ENTER DATA: W-*-X 
PRESS: CONTINUE 
■DISPLAY 




ENTER DATA: X-^X 
PRESS: CONTINUE 




PRESS: SET FLAG 



PRESS: CONTINUE 
[^DISPLAY 
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Group 
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Y 
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(% of data points 

in Group) 
(Number of data 
points in Group) 
(Group #) 



PRESS: CONTINUE 




PRESS: CONTINUE 



DISPLAY 




PRESS: CONTINUE 
DISPLAY 




PRESS 
PRESS 
PRESS 
PRESS 



GO TO 

0 
0 



To consider another 
set of data. 



EXAMPLE 

The data set is: 

104, 92, 83, 78, 58, 135, 146, 24, 74, 85, 81, 
128, 140, 113, 79, 78, 53, 42, 34, 85, 96, 110, 
133, 158, 171, 108, 84, 90, 73, 11, 51, 118, 
68, 139, 92, 109, 89, 124, 91, 116. 

The data varies between 0 and 200 so W is 
chosen to be 20,, 
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This program evaluates the integral of the F distribution density function 
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for given values of F, V^^, . 

The integral is evaluated by means of the following series: 
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Reference: Handbook of Mathematical Functions, Abromowitz and Stegun, National Bureau of Standards (1964) 
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USER INSTRUCTIONS 



EXAMPLE 



SET: 



RADIANS 



PRESS: END 

ENTER PROGRAM: Side A followed by Side B 
PRESS: END 
PRESS: CONTINUE 



ENTER DATA: 

PRESS: CONTINUE 
DISPLAY 



F ratio — !»► Z 

for numerator — 
for denominator 



X 



Q(F/ V^.Vg)— Z 
0 Y 



X 



To calculate significance level for new data. 



General Form 

Q (4. 21/ 7, 6) 
Q(11.4/4, 5) 
Q (3. 79/ 7, 7) 



= 0.05 
= 0.01 
= .05 
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TWO WAY ANALYSIS OF VARIANCE (m x 4) 
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This program analyzes the total statistical variance in a table of data by separating the total variance 
into two parts, the variance among rows of data, and the variance between columns of data, and comparing each 
to the variance due to random influence. In a table of four columns and m rows it calculates the variance ratio 
between columns. 

m I (X.-X)^y^ 3 

i = i 



F = 
c 



m 



4 

Z Z (X..-X.-X.+X) 



with = 3 degrees of freedom 

and = 3 (m - 1) degrees of freedom 

and the variance ratio between rows: 



4 Z (X.-X)^ / (m-1) 
i = l ^ / 



Z Z (X,,-X,-X,+X) 
3=1 i=l 



13 3 1 



with = m-1 degrees of freedom 

V„ = 3 (m - 1) degrees of freedom 



where: 
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^ 3=1 

Vj^ = degrees of freedom in numerator 
V2 = degrees of freedom in denominator 
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The equations used by the program are: 
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Reference: Freund, John E. , Mathematical Statistics, Prentice Hall (1962) 
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USER INSTRUCTIONS 



USER INSTRUCTIONS (Con't) 



j Columns 
12 3 4 



i Rows 



DATA TABLE 



m 



PRESS: END 

ENTER PROGRAM: Side A followed by Side B 
PRESS: END 
PRESS: CONTINUE 
DISPLAY 




ENTER DATA: m - 

PRESS: CONTINUE 
•DISPLAY 



•X number of rows in 
data table 




ENTER DATA: X. 



1] 



■X j = column 
i = row 



(data entered row by row) 
PRESS: CONTINUE 




YES 



DISPLAY 




F ratio between columns 



Vj^ degrees of freedom 
in numerator 
Vg degrees of freedom 
in denominator 



PRESS: CONTINUE 
DISPLAY 



Z 
Y 

X 



F ratio between rows 



degrees of freedom 
in numerator 

degrees of freedom 
in denominator 



To re -run program: 
PRESS: END 



EXAMPLE 



General form 



j Columns 
12 3 4 



i Rows . 



^11 • 



Xi4 



X. 



•^ml ■^m4 



Columns 





58.2 


49.1 


60. 1 


75. 8 


Rows 


56.2 


54. 1 


70.9 


58. 2 




65.3 


51. 6 


39.2 


48. 7 


F = 
c 


0. 43 


^1 = 3 


^2 = 


6 


F = 
r 


0.92 


2 


^2 = 


6 



A 

2 



Page 1 PART NO. 09100-70909 9100B ONLY 



Page 2 



PART NO. 09100-70909 9100B ONLY 



Q 
< 

< 

t 

ii! 
X 



1 


Key 


« 1 


Display 


1 


Key 


I 


Display 


1 


Key 


1 


Display 


1 


X 


y 


z 


% 


y 


z 


X 


y 


2 






1 "=5 

1 \J 












25 










0 












11 


t 


27 




— 


{- 


h 


• 


35 








1 












'2 
j3 


X 


36 










i2 

i 




1 7 








2 




















t 


27 








3 












Id. 


t 


27 






1 


01 








A 












m 


X 


36 






i 


Ic 




34 








5 














25 


— — - • 






T 


25 








6 














+ 


33 








I? 

Is' 


^-►( ) 


23 








7 












i8 


" r 1 16 










1 7 








8 












t 


27 








19 


X 


36 








9 














36 


— ' ~ 






p 


t 


27 




















ir 
%J 








lb 


3 


03 




















+ 33 










X 


36 








r 












t 


27 










30 


D] 


^SPLi 


\Y 














liO 

i_ 




24 








c 

(- 




STOP 


41 


V2 


Vi 


■^col. 


io 












10 
25 










CONT 


47 








! 
1 


1 
























In 
c 

[3 


a 


13 








2 

3 














27 


! 


27 


















,4 


X 


36 










14 








4 













'5 

1— 

if 


25 










35 








5 












1 f 






' o 


3 


03 








6 












rl 
U 


1^ 


X 


36 









7 












35 








iQ 
lO 




27 








8 












i9 


f 


15 






ig 

£J 




17 








9 












\? 

i ij 




34 










r ^ 


36 








3 


— — — — 










t 


27 












30 


D] 


splJ 




b 












n 




24 








IL 


STOP 


41 




V, 


row 


'r 














9 ' 


1 1 








Vd 


CONT 


47 




















to 

-M 




04 








€ 

(- 




60T0( ) 


44 








Storage 


• 


35 








i 




06 








f 




! — < 


f 


15 










si 


7 


07 
















34 








i3 


60 TO ( ) 


44 














40 








r 


+ 


33 
















i5 


a 


13 








lO 


1 


01 














e 


12 










1 


01 








9 




!^ 


ROLL ^ 


22 








,7 


END 


46 








8 




7 




i« 

o 




34 








1 












B 




[9 

1 


^;^>' 


30 




















5 






ROLL ^ 


22 








fa 












4 








34 




















3 




9 




tr 


y-¥{ ) 


40 


















1 






6 - 




















0 





< 
< 



< 

< 

a. 

Ly 



o 
< 

< 



X 




UJ 



Q 

< 

O 
< 



LiJ 



UJ 
X 



Q 

a: 
< 

< 

us 
_l 

LlI 
X 



Q 

q: 
< 

< 

Q- 



UJ 
_l 

X 



Q 
< 

o 



TWO WAY ANALYSIS OF VARIANCE WITH REPLICATES 
(THREE WAY) 
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This program analyzes the total statistical variance in a table of data by separatii^ the total variance 
into three parts, the variance among rows, the variance between columns, and the variance due to interactions. 



Computational Equations 
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SSE = SST - SSA - SSB - SSI 
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Reference: Mathematical Statistics, John E. Freund, Prentice Hall, 1963 
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USER INSTRUCTIONS 



USER INSTRUCTIONS (Con't) 



PRESS: END 

ENTER PROGRAM 1: Side A followed by Side B 
PRESS: END 
PRESS: CONTINUE 
DISPLAY 




ENTER DATA: 



rows 
k — * 



columns repetitions 
Z, n — ►Y, m —►X 



PRESS: CONTINUE 
DISPLAY 



Z 
Y 
X 



row 

column 

repitition 



ENTER DATA: X.. 
PRESS: CONTINUE 



X 




DISPLAY 




ENTER PROGRAM 2: Starting Address is (-)(0)(0) 

PRESS: GO TO 

PRESS: — 

PRESS: 0 

PRESS: 0 

PRESS: CONTINUE 



DISPLAY 




PRESS: CONTINUE 
DISPLAY 



column 



Z 
Y 
X 



PRESS: CONTINUE 
DISPLAY 



p 2 

interaction 



Y 
X 



EXAMPLE 



n = 3 columns 



k = 4 rows< 



Results: 





A 






58.2 


56.2 


6l3 




52. 6 


41.2 


60.8 




49.1 


54. 1 


51.6 




42.8 


50.5 


48. 4 




60.1 


70.9 


39.2 ■) 


m - 2 


58. 3 


73.2 


40. 7 


repititions 


75. 8 


58.2 


48. 7 




71. 5 


51.0 


41.4 




F 

row 


= 4.42 


F , 9.39 

column = 


^1 = 


= 3 


^1 


= 2 


^2 = 


= 12 


^2 


= 12 



interaction 



14.93 
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9100B ELECTRONICS PROGRAM LISTING 



71001 - TCHEBYSHEFF FILTER DESIGN 

Calculates component values for Tchebysheff low pass filters with equal terminations. 

71003 - BUTTERWORTH FILTER DESIGN 

Calculates component values for Butterworth low pass filters between equal terminations. 

71004 - MINIMUM LOSS PADS 

Calculates resistive minimum loss pad and gives resistor values and loss in dB. 

71005 - TCHEBYSHEFF EVALUATION 

Used to determine filter order or the frequency response of a particular Tchebysheff filter. 

71006 - ATTENUATOR PADS T OR 11 

Calculates resistor values for either T or IT pads. 

71007 - BAND PASS FILTER DESIGN 

Calculates ideal component values and evaluates the frequency response by the image parameter 
method for a band pass filter . 

71008 - STUB MATCHED TRANSMISSION LINE 

Calculates the distance from a load to a point where a shorted stub is to be placed and the length 
of the stub to match a transmission line,, 

71009 - TRANSMISSION LINE 

Calculates the impedance at any point on a transmission line either toward the generatijr or 
toward the load, the voltage reflection (magnitude and phase) and the VSWR on the line. 

71010 - WYE -^DELTA AND/OR DELTA -►WYE CONVERSION 

Transforms impedances wired in delta configuration to the equivalent wye configuration and 
vice- versa. Loop and nodal analyses are used to perform the transformations. 



9100B ONLY 



Q 

Del 
< 

< 
Q- 



71501 - TCHEBYSHEFF FILTER DESIGN - FINITE TERMINATIONS 

Calculates component values for Tchebysheff low pass filters with finite terminations 
(equal or unequal). 

71502 - S PARAMETER TO Y PARAMETER CONVERSION 

Converts S parameters for linear (active or passive) circuits to Y parameters. 



LlJ 

_j 

UJ 
X 



71503 - FREQUENCY RESPONSE FROM POLES AND ZEROES WITH PLOT 

Given the zeroes and poles of a complex function f(s), the magnitude and phase response 
is computed over a specified frequency range. The program can consider any combination 
of six poles and zeroes of the form ri = a + jw. 
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TCHEBYSHEFF FILTER DESIGN 



This program computes component values for Tchebysheff low pass filters between equal terminations. The 
network designed is of the form: 

R L2 Ln-1 



O — t nrvYV 




C2 



Cn 




The first element of the filter is a shunt C. The order (no. of poles) must be odd. (Even order requires un- 
equal terminations for realiz ability. ) 

Frequency response of filter is: 



20 LOG 




PASSBAND RIPPLE =€clB 



User specifies: Filter Order n (must be odd) 
Pass Band Ripple €^ (in dB) 

The equations used are: 



LOG f 



Termination Resistance R (in ohms) 
Corner (- €f^) Frequency f^ (in Hz) 



2ai 



- 1 '^K 



K - 1 - 1 



K = 2, 3, 4, 



where Y = sinh 



aj^ = sm 



^dB 

ln(coth40 iogj^Q §)■ 



2n 



(2K-1)77 



2n 



K = 1, 2, 3, 



n and bj^ = + sin^ (^) K = 1, 2, 3, 



K 



RG. 



K = 1, 3, 5, 



n and L 



K 



'K - lit 



K = 2, 4, 6, 



• (n-1) 



UJ 

_i 

UJ 
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Reference: A Handbook on Electrical Filters 

White Electromagnetics, Inc. 1963 



09100-71001 

USER INSTRUCTIONS 



EXAMPLE 



SET 



RADIANS 



FLOATING 



ENTER PROGRAM (Starting address is 0-0) 

This program is self -destructive ie., 
each solution requires reloading the 
calculator. 

PRESS: END 

PRESS: CONTINUE 

DISPLAY 




ENTER DATA: n Y, 
PRESS: CONTINUE 
DISPLAY 



X 




ENTER DATA: R - 
PRESS: CONTINUE 
DISPLAY 



Y f 



X 



(K odd) 




(Cj^ is in 
farads) 



7th Order (n) 

0. 1 dB Ripple ( e^g) 

50 Q, Impedance Level (R) 

3. 2 MHz Corner Frequency (f^) 



L2 



1-4 



L6 



^1 


= 1175 pF 


L2 


= 3. 538 /iH 


C3 


= 2086 pF 




= 3.913 /iH 


C5 


= 2086 pF 




- 3. 538 juH 


C7 


= 1175 pF 








(Lj^ is in 
henries) 



Displays component values until K = N. 
Next CONTINUE clears DISPLAY. The 
program steps must be reentered to en- 
ter another problem. 
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02 I DISPLAY 2 

STOP I 4 
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CALCULATE Ci 



DISPLAY 1 



0 INDICATE 
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[fI RST COMPOhpTT 



1^ 
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sin X 



C 

T 



TT 



35 i 



35 



25 



70 
36 

Te 



01 

"34 

"56 



CALCULATE -^~a^<~^i^^^ 
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lisplay 



^ I 25 I 
hyper ▼ | 67 | 

. ! _ i 

sin^: I 70 I 

) 1 23 
a J I3_ 

GOTO( )( ) \ 44 



^ — STORES — ^ — I'N — i^^j — ^^-g.!p^^Y(NG — P"ROORAI|^ ""STEPS — ALiReAqY S'XEOOTEO 



0 

END 



J I 



00 ^ 

03 ; 

46 < 



BRANCH to CONTINUE 
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- -1 



i — I 



Q 
< 

< 



PART NO. 
09100-71003 



LlI 



BUTTERWORTH FILTER DESIGN 
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This program calculates component values for Butterworth low -pass filters between equal terminations. The 
user supplies filter order n, termination resistance R, and corner (3 dB) frequency f^. The filter designed is 
of this form: 



R 
■AAAr 




(n COMPONENTS) 
'C5 



9, 



0 



R 



-O 



OdB 



-3dB 




SLOPE =-6ti dB/OCTAVE 
OR-20-n dB/DECADE 



LOGf 



u 
_j 

UJ 
X 



< 

u 



Reference: Simplified Modern Filter Design 
by P. R. Geffe 



J. F. Rider 



1963 



Handbook on Electrical Filters 
White Electromagnetics Inc. 1963 
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09100-71003 

USER INSTRUCTIONS 



EXAMPLES 



SET: 



RADIANS 



FLOATING 



ENTER PROGRAM (Starting Address is 0 - 0) 
PRESS: GO TO (0) (0) [or ENd] 
PRESS: CONTINUE 

ENTER DATA: n Z, R(in ohms) Y, 



f^,(in hertz) -^X 



(K is initialized to 1) 
PRESS: CONTINUE 
DISPLAY 




(K is initialized to 2) 

•PRESS: CONTINUE 
DISPLAY 




(Cj^ is in 
farads) 



(Lk is in 
henries) 



n = 6 
R = 50 J2 
= 10 mHz 



L2 L4 Le 



Cl 


= 164.8 


pF 


C3 


= 614.9 


pF 


C5 


= 450.2 


pF 


L2 


= 1.125 


juH 


L4 


= 1.537 


juH 




= .412 
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Kspiay 
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CLEAR 
STOP 



4. 



41 



3 f 
I 1 



JC-^C ) I 23 

r i 16 

y^K ) \ 40 
b I 14 



ROLL ^ 
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22 f 

23 I 

f- 

I 3 I 
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STORE IKIPUT 



CLEAR \ 20 

T^ToT 



1 . c 



2 



23 

17 

02 ^ 

36 t 
OM 

34^1 
56 I 



X 

2 




2. r 



STOP 
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33 1 




1 3 i 



36 
02 
35 



y 



R 



INITIALIZE COUNTER FOR C'S 



35 I 

70 ; 

30 
56 I 



35 \ 

_ -I 

16 I 

35~f 



14 
35 



^L=CULAm 



sin /(2K^1)7r 



2n 



17 1 RECALL K 




K 



INCREMENT K 



RECALL n 




BRANCH IF ALL C'S ARE CALCULATED 



T 



Sfcr-tgf* 



ent|:r 



_ i 



I 



DISPLAY 
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PART NO. 
09100-71004 



MINIMUM LOSS PADS 



Given 2 impedances to be matched, program calculates resistive minimum loss pad and displays resistor values 
and loss in dB. 



Q 
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Q- 



LxJ 
_J 

UJ 
X 



R1 

o vw 



R2 ll^ 



UNBALANCED 



Z1 



-VVAr- 



R2 



BALANCED 



Q 
< 

< 



The equations used are: 



^1 - ^iV^ " Z7 



UJ 

_i 

UJ 
X 



Q 

< 

U 
< 

Q- 



^2 - / Z. 



20 



A(dB) = arccosh 




Reference: Reference Data for Radio Engineers, ITT 
Fourth Edition 1963 
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USER INSTRUCTIONS 



EXAMPLES 



ENTER PROGRAM (Starting address is 0 - 0) 
PRESS: GO TO (0) (0) [or ENd] 
PRESS: CONTINUE 



ENTER DATA: Z. 



Y, Z, 



X 



^1 > ^2 



PRESS: CONTINUE 
DISPLAY 




75 n 



Zg = 50 Q, 



UNBALANCED 

43.301 

O VW 



75 



R2 
86.603 



50 



Loss = 5.719 dB 



5^ = 600 

BALANCED 
R1 



/2 

259.807 
—^AA 



600 



V2 
259. 807 

—AAA 



:R2 
"173.205 



150 



Loss = 11.439 dB 



= 519.615 
= 173.205 
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TCHEBYSHEFF EVALUATION 



UJ 
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@ 



This program evaluates the response of a Tchebysheff filter. The programmed input -output routine is designed 
to facilitate the use of the program in determining the optimum filter for a given application. 



Q 
< 

< 
Q- 



h- 
LU 
-J 

LlJ 
X 



Q 

< 



UJ 

_i 

LlI 
X 



Q 

a: 
< 

o 
< 



User specifies: 



Pass Band Ripple - (dB) 

Corner (- £(Jd) Frequency - f 

Frequency at which response is to be found - f . 

Filter Order - n 



in any consistent units 



The equations are: 



G(fiLg = log. 2 2 



where = -j— 
c 

G(S2)^g = the attenuation in dB below the minimum attenuation 



lO-^dB _ 1 



T^ is the Tchebysheff polynomial 

T (n) = cos (n cos"''' {Q,)) O < 1 

^ -1 
T^(n) = cosh (n cosh (0,)) Q, > 1 
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USER INSTRUCTIONS 



USER INSTRUCTIONS (Cont'd) 



ENTER PROGRAM (Starting address is 0 - 0) 
PRESS: GO TO (0) (0) [or ENd] 
PRESS: CONTINUE 
DISPLAY 




ENTER DATA: f - 
c 

PRESS: CONTINUE 
DISPLAY 



X 




ENTER DATA: f. 

1 

PRESS: CONTINUE 
DISPLAY 



X 



Z 
Y 
X 



ENTER DATA: n X 
PRESS: CONTINUE 
DISPLAY 




ENTER DATA: 6^ 
-PRESS: CONTINUE 
DISPLAY 



X 




YES 



4ncrement n by 1 




TO RESTART 
PROGRAM 

PRESS: END 
PRESS: CONTINUE 



YES 



PRESS: SET FLAG 
PRESS: CONTINUE 
DISPLAY 




PRESS: CONTINUE 
DISPLAY 
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USER INSTRUCTIONS (Cont'd) 




ENTER DATA: 6 ,^ X 
oB 



EXAMPLES 



The f oUowir^ general filter requirements are known: 

1. Filter cutoff frequency is 10 MHz 

2. Minimxmi ripple is desired (0 < max < . 1 dB) 

3. At 14 MHz amplitude attenuation of 15 dB is 
required 

4. At 20 MHz 35 dB attenuation is required 

5. Minimize components 

6. Prefer matched terminations i.e. , n odd 



Initial design parameters are: 



f = 10 MHz 
c 

f. = 20 MHz 
1 

n = 2 



dB = .025 dB 



Results are 
^dB 



= 1.1 dB 



thus increase n (increment n) 



increase n (increment n) 



n = 4 
A 



^dB 
increase n 

n = 
A 



17.4 dB 



= 28.8 dB 



^dB 
increase n 

n = 6 

A^ = 40.2 dB 



EXAMPLES (Cont'd) 



Because of matching preference, increase 6^ and 
decrement n to 5. 

n = 5 

^dB = 
A,3 = 31.8 



further increase € 
6 



dB 



dB 
08 dB 



A^g = 33.9 dB 



further increase € 



dB 



try increasing n to 7 since want odd and decreasii^ 
^dB 



n. = 7 
1 



6 = . 01 is about the minimum ripple achievable 
so we check attenuation at 14 MHz. 

f. = 14 MHz 
1 

AdB = 20-^ <® 

Thus the requirements are met. The element values 
may be found from program #09100-71001 Tchebysheff 
for Equal Terminations. 
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< 1 3 



"J i~i — 3^ c 

™l I i — 



-4-- 
1 



?r 



t 

IF 

7 

arc ▼ 
hyper ▼ ( 67 
cos X 



40 
I 3 
14 
27 
01 
53 
04 
07 
14 
72 



hyper ▼ 
cosx 



15 ^ 
36 ' 
25T 

67 ; 

73 



BRANCH 



DEPENDING ON £l 



GOTO( )( ) ! 44 i 



r 



5 0 

1 

2 

Q 



3 



5 

J 

arc ▼ 
cosx 

cos X 

"IT™ 

X 

3 
X 

Zi 

+ 

log X 



1 

X 



I 05 

""for 

I 25 

1 72 ^ 

„ c 

I 27 

"i 75~: 

I 36^ 

i " 

27T 



CALCULA 



36 i 

'^^ 

I 

36 

33 
25 
75 
27 
01 
00 
36 
40 



E TnCXi) Ii2>1 



CALCULATE A 



dB 
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o 



^"3 



Hi 



I™ 



ROLL ^ 
STOP 



7 :r" 



Id 



q 
< 



8 



! ! 

to 



16 : 

27 I 
I 5 ^ 
22 i 

i I 

41 



AdB 



IF FLAG ! "^^J 



1 

6 



01 I 

1 

06 



24 



BRANCH FfOR NEW n; AND €^6 



iF 3C 

) 

r 



<r~- 

50^ 

t 

0_7j 
I 3 I 



™ -L 

i 40 ! 



I '6 

I v^( ) i 40 ^ 

- ; ^ 

7 S GOTO( )( ) i 44 I 



3 


' 03 

- 1- - i 


2 ^ 






■ i~ 




"^"27! 


1 


i °' ) 

L — t 


+ 


j 33i 



1 fll 

GOTO( )( ) 



40 I 



I 5 i 



END 



_44f 

02^1 
46 t 



l_ — p 
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0 INCREMENT n 
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PART NO. 
09100-71006 



ATTENUATOR PADS T OR 11 



Given input and output impedances and attenuation desired, program calculates resistor values for either T or 
n pads. 



'T' OR 'H' PAD 
R| 

O ^AA^ 



Zl 



R2 

-AAA^ O 



:R3 



UNBALANCED 



Z2 



O ^AAr- 



Zl 



O ^AA^ 

R 



Z2 



'/2 "^^/Z 
BALANCED 



O 

R2> 



.= ^)lnlO 



R, 



^3 sinh e 



Rr 



2 tanh 0 3 



R^ = 



Rr 



1 tanh 9 3 



'n' OR '0' PAD 



Zl 



■AAAr- 



R2 



UNBALANCED 



Z2 



Zl 

— ► 



^3/2 

■AAAr- 



:r2 



^ VsA/ ^ 



R3, 



BALANCED 



Z2 



Rg = yZjZg sinhfl 



R. 



R. = 



RgZg tanh 0 
Rg - Zg tanh5 



RgZj^ tanh ^ 
Rg - Zj^ tanhe 



Reference: Reference Data for Radio Engineer, ITT 
4th Edition 1963 



09100-71006 

USER INSTRUCTIONS 



EXAMPLES 



SET: 



FIXED 



ENTER PROGRAM (Starting address is 0 - 0) 
PRESS: GO TO (0) (0) [or ENd] 
PRESS: CONTINUE 
ENTER DATA: 



Mb 



Z, Zg 
" X 



Y, 




PRESS: SET FLAG 



PRESS: CONTINUE 
DISPLAY 




PRESS: CONTINUE 
DISPLAY 




ENTER NEW VALUES OF A.^, Z. and/or Zp 
AS BEFORE cm i 

PRESS: CONTINUE 

DISPLAY NEW VALUES OF R^, and Rg 

NOTE: If SET FLAG is pressed, program 
continues IT calculation. To change 
from n program back to T pro- 
gram, press IF FLAG after entering 
new data, then press CONTINUE. 
Thus the selection of IT or T pads 
needs to be made only once at entry 
point. 



Input impedance 75 O 
Output impedance 50 Q, 
Attenuation 20 dB 



UNBALANCED 



TV 



64.144 

— V\A^ — 



75 



38.639 

-Wv — 



50 



12.371 



■n' 



75 



303. 124 

— — 



50 



97.052 



58.462 



Input and output impedance 600 Q, 
Attenuation 3 dB 



BALANCED 

„. 51.299 
h o ^AAr— 



600 



51.299 

-AAA O 



600 



'0' 



o- 



— AAA^ 
51.299 



1703.114 



-AAA— 
51.299 



105.689 
^ ^AA^ — 



600 



600 



3.508K 



AAAr- 



3.508K 



105.689 



R. = 



R« = 



R„ = 



102. 598 
102. 598 
1703. 114 

All units are in ohms 



Rj = 3508.826 



Rg = 3508.826 
Rg = 211.378 
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Step ! Kay 



Cede 



Display 



CALCULAtE R 2 



R 



GOTO( ){ ) 



RECALL AND POSITION 



RETURN 



36 i BRANCH TO 



hyper ▼ i 67 



a: 



ROLL 4v (22 



-eAtCyLATE Rf 



ROLL -t^ 22 S 



R. 



0 INITIAL EN 




INPUT 



TRY 



THIS POSITION FOR H PAD CALCULA 



E R 





PART NO. 09100-71006 




r I 



GOTO( )( ) I 44 

3 03 



07 . 
46 



PAD 




PART NO. 
09100-71007 



BAND PASS FILTER DESIGN 



Q 
< 

< 
Q. 



Given the image impedance level and the desired bandpass of a filter the program calculates the ideal component 
values. If values of closest commercially available components are substituted for these ideal values, the pro- 
gram then calculates the frequency response of the proposed filter. 



Fj^ = low frequency 
Fjj = high frequency 



A = Attenuation in dB 
dB 



Frequency range over which filter is to be tested. 



liJ 
_l 

LjU 
X 

g 



Q 
< 



LJ 

LJ 
X 



Q 

a: 
< 

< 



LiJ 
_l 

<: 

LU 
X 



Q 
< 



LU 
_J 

1x1 
X 



Dimensions: Increment, f,, f„, F, , F„, given in cycle s/sec. 

Attenuation given in decibels (dB) 
, given in henries 



C , C, given in farads 
a b 



The equations used are: 

R = Impedance; f = Low cutoff; f„ = High Cutoff 
1 ^ 

T 



n 



2Ca La/2 

o )\— 



l-a/2 2Ca 



_LCb 



Lb 



Co 



f - f 

a 47rfjf2R 



C„ = 



L„ = 



R 



a TT (fg - f 



X 



Attenuation in dB 



TT (fg - \) R 



R(f2^ 
4 ^ fi ±2 



when cu = 2 TT f 



X 



0 < 



(40 LogjQe) ( sinh-y-il^ ) 



La 



-l-Cb/, 



2Lb 



09100-71007 



^ (Attenuation in dB) 

-1 < — < 0 0 



4X^ < -1 (40Log e)Uosh ^ 4X j 



USER INSTRUCTIONS 



USER INSTRUCTIONS (con't) 



ENTER PROGRAM: (Starting Address 0-0) 
PRESS: GO TO (0) (0) [or ENd] 
PRESS: CONTINUE 
DISPLAY 




ENTER DATA: R-^Z, f, 
PRESS: CONTINUE 
DISPLAY 



•Y, f. 



X 





Enter approxima- 
tions: C Z , 
ao 

^Y, 0— 



PRESS: CONTINUE 



DISPLAY 




Enter approxima- 
► Z, 

•-X 



PRESS: CONTINUE-* 
DISPLAY 



Z 
Y 
X 



ENTER DATA: F 



Z, Ft 



L -U ^ 

Increment — ►•X 



►Y, 



PRESS: CONTINUE 
DISPLAY 



^db 

f 

Increment 



Z 
Y 
X 



USER INSTRUCTIONS (con't) 



EXAMPLE 



09100-71007 




ENTER DATA: New 
increment ■— ^-X 



Note (1): When the frequency being used is in- 



cremented enough to exceed the value of F 
entered, the calculator will return to the 
initial display. 



H 



Note (2): Substitution of "Pause" instead of 
"Stop" in step 9-0 will provide continuous in- 
crementing and attenuation evaluation without 
use of "continue" key. 



SET: digit dial to 8 
SET: 



FIXED POINT 



(A) 



R = 50 
fg = 3000 

f ^ = 300 



Results: 



C = 
a 



5. 89 mh 
4.77 ^f 
11. 94 mh 
2.36 fjii 



ENTER DATA: F^ = 3500, F^^ = 150 
Increment 



(B) Reset problem - use same values as 
part (A) 



After displaying L and C set in approx 

imate values of: C =5 f , L = 6mh 
' a a 

(realistic component 

values) 

After displaying Lj^ and set in approx 

imate values of; L|j= 12 mh, = 2. 5 f 

(realistic component 
values) 



= ACTUAL VALUE, = APPROXIMATE VALUE 



0 
2 
4 
6 
8 
10 
12 

m '4 

< 16 

18' 

20 

22 
24 

























































1 
















// 
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// 
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J. 
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If 




















































N 






































































ij 
























































































































































































J 






























































// 






























































'1 
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^ 



Input: R— ^ Z 




NO 



Attention =0 



I 

Display: 

Z — ► atten. 
Y — ► freq. 
X Inc. 
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0 



1 — 



CLEAR 
STOP 
ACC + 

d 



ROLL ^ 



b 

E 



X 

4 

X 

r 

ROLL ^ 



Cooe 

I 

I 20 i 

I 41 ! 

I 34 I 
I 40 ! 

[22 

[I? 

1 4 I 

12] 

1— 1 

I 36 J 
04 

[36J 
I 56 1 

i. 

I 40 
I 16 
[31 

I 27 

J i 

17 I 
[ 35 I 

56 

i- —- ■ -f 

I 35 I 

lo|_ I 

I 41 

! 2 5 I 

jsej 

! 1 
I 01 

I24I 

I 

I 2 "ij 

[ 23 T 

I I 3 1 

^ ' 

^ ' 35 • 



R 



ENTER R,f2,fi 



STORE fi^fg , AND 




STORE R 



7r 

.1. 

STOP 



CALCULAT 



E Cn AND L 



X_ 
1 

ROLL 4^ 



77 



56 1 

"I 

35 * 
I 4 
35 



CALCULA- 



CALCULATE AND STORE 



E Cb AND Lb 



CnL 



a'-a 



! 



^ — — ^ 



DISPLAY 
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fa 



.1 
4 



1^ 
I 



o 
a: 



■.J j 



ROLL 

X 

STOP 
ROLL 

X 

X 
X 

CLEAR 

T"" 

STOP 
ACC + 
ROLL ^ 

' Y 
.... ^ 

TT 
y^K ) 

c 

~ ^ I 



22 

35 ^ 

„ f 

3 6 , 
02 < 
41 

I 

31 ^ 
, 36 ' 
,24 

I 3 
' 36^ 

04 

36 

40 

1 4 
' 20 
' 03 

4 I 



~GAtGtit"ArF 



Lb 



AND ST0R6 05-bt, 



Cb 



DISPLAY 



CALCULATE: AND STORE 4CaLb 



INCREMENT 



ENTER F^,Fu INCREMENT 



60 
31 . 
02 
36 
56 : 
36 
25 ' 
27 . 
36 
40 " 
17 
16 

36} 
0\ ' 
34 
14 . 

35 : 

17 

35 r 

""27;" 

I 3 ' 

36 ^ 

o"i 5" 

30 ^ 

















X-n 




> CALCULAT 


E — — 
























j 




i 
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S 
4 

ROLL 

CHG SIGN 



I 0 » 

i t 

04J_ 

32 t 



67 ; 



hyper ▼ 
cos X 



73 



GOTO( ){ ) I A A 



i 

8 



1^ 
o 

arc ▼ 
hyper ^ 
sin X 

1 

... . 
log X 

X ^ 

} 

X 



07 r 



16 
30" 
76 
72 
67 
70_ 

of' 

74^ 

i 

75 



CALCULATE s 



y U 



36 

"04" 
00 
"36 



T 



h — I 
^76 I 



n 



56"^ 



T , 35 



ANQRECA 



CALCULATE f FOR EACH ATTENUATION 



ITHMIREIVIERT 
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Step 








storage 






y 


z 


f 






r 


b 




9 


STOP 


41 


INCREMENT 


f 


ATTENUATION 


DISF 


LAY 












1 1 




23 






















1 2 


f 


15 




n 


















1 3 


+ 


33 


CALCULATE 


■l+ Iincrem 

_ _ J__ — -™ — ™ — 


INT 
















' 4 


e 


1 2 




1 












1 




[5 


IF X>>' 


53 


™ 

t 


.....4^—.^ ^ 












i 




I 6 


4 


04 


> IF Fu>Fl- 


h I INCREMENl 


■, INCREMENT 


f AN 


D 












7 


6 


06 


J .^CALCUL/VTi 


4— — -™ 

_^4JEV\M\TTENL 


ATION^^^ 1 
















1 8 


END 
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^6 






^ IT 


i 
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r ^ 1 1 
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L i 
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PART NO. 
09100-71008 



STUB MATCHED TRANSMISSION LINE 



5 
El 



This program solves for 1 , the distance from the load to the point where Y. / Y = 1 + ib. / Y in wavelengths 
^ ^ X ^ in o in o ^ 

and meters and for 1^, the length of a shorted stub to match the line in wavelengths and meters. 



Q 
< 

< 
Q. 



_J 

UJ 
X 



Q 
< 

u 



UJ 



GENERATOR 




LlI 
X 



Q 

cr 
< 

< 
a. 



The equations used are: 



in 



y; - 3(y^ - taB/3l) 



"1 ^1 
1 - ^ tan 1 + ]^ — tan ^1 



The iteration technique solves for: 



Ixl 



Y. b. 

in , . in 
V— =1+3 -xT- 



u 

X 



Q 
< 



The length of the shorted stub in: 



tan 



■1 m 



1^= .25- 



360 



Reference: Microwave Theory and Measurements 
Hewlett-Packard Microwave Division 
Prentice -Hall, Inc., 1962 



Ixl 



u 
X 



09100-71008 

USER INSTRUCTIONS 



USER INSTRUCTIONS (con't) 



SET: DEGREES 



ENTER PROGRAM (Starting Address is 0 - 0) 
PRESS: GO TO (0) (0) [or ENd] 
PRESS: CONTINUE 
DISPLAY 



Z 
Y 
X 



ENTER DATA: Z - 
o 

PRESS: CONTINUE 



Z, X, 



■Y, R. 



X 



Note: Program pauses at each iteration, stops when 
completed. 



DISPLAY 




(In Wavelengths) 



PRESS: CONTINUE 
DISPLAY 



1 



Z 
Y 
X 



(X contains distance from load in wavelenths) 
(Y contains lengths of shorted stub in wave- 
lengths) 

ENTER DATA: Frequency (f ) -^-Y, Propagation 
Constant (k) X (k = 1 for air) 

PRESS: CONTINUE 
DISPLAY 



(In meters) 




(X contains the distance from load in meters, Y con- 
tains the length of shorted stub in meters) 

PRESS: CONTINUE to enter new problem 



Z = 50 J2 
o 

Xj^= 25 n 
Rj^ - 50 



1. 000 



b. = .500 

m 



WAVELENGTHS 
1 = .250 

X 

I3 - .176 



EXAMPLE 



k = 1. 000 



f = 1 X 10 



METERS 



1 = 74. 944 

X 

1 = 52.823 

s 



09100-71008 




YES 



Update 1^ 
1 + inc. 

X 



YES 







SET 

FLAG 






Solve: 



YES 



Change sign of 
increment, -r 3 







1 = Dist. to Stub 

X 

1 = Length of Stub 
® in wavelengths 






Enter f , k 






1,1 in meter 
1 X s 




k> 




J 
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09100- 71008 




< 



P AGE 2 

lispfay 



PART NO. 



09100-71008 



J 



r1 



5 



LJ 



y-*i ) 

d ~ 

c 
c 

ROLL 4^ 

IF a:>>' 

SET FLAG 
SET FLAG 

1 

^3 ^ 
6 
0 
X 

tanx 
E 

ROLL ^ 
+ 

TO POLAR 

In X 

yt^ » 
xty 

Z 

X 



! 35 
40 



17 « 

! 33 
" 40 



01 i 
22 i 
f 53 I 
54 , 
I 54 
17 J 
27 I 
03 I 

06 I 

1 

00 
36 

1. 

25 
71 I 
27] 

40 I 
12 



27 
22 
33 
5 



r 



ROLL 4^ I 22 



r 

I 36 I 



CH6 SIGN 



32 



X 

T 
"+ 



36 
01 
33 



(1- v-TANX 



) + j ^ TAN 



X 
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're 



ROLL >^ 



•| J TO POLAR 1^62 



In X 



65 



ACC — _| J 
RCL I 61 1 



ACC — 1 63 



74 



TO RECT 



66 



ACC + I 60 ? 



PAUSE 



57 



xzy I 30 



01 



\y\ 



IF FLAG 

y 



i 55 i 

T4"3""! 

I 

ro7 i 









(0 




1 










o 







6 i 06 1 

IF x>y I 53 I 

7 I 07 I 

SET FLAG j 54 i 

IF X<J' T52 I 



07 



SET FLAG i 54 



GOTO( )( ) I 44 I 

to[1 



1 



7 



i 07 3 



C j 16 

ROLL \^ j 31 ! 

'—-7—1- 



RCL 



r - ^ 



ACC — i 63 

STOP 



'n + 1 



iispiaj 



41 



arc ▼ 



9in = 1 



25 

T2" 
7? 



tanx 

"3 "l"^"^"- 



6 



_j 4 

I 00 I 

-r i 357 



i 21 ) 

T"02"~"t' 



in 



FIND LENGTH OF STUB 



n + 1 



Storafe 



1 



f- 



DISP 



AY ilN WiWELElNGTHfe 



i 



WAVE LEN GTHS ^^EROftLi^^ - 



r 



ls= (-25 



TAN 



-1 



^ L 
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step 



9 



0 



Code 



Display 



05 



ROLL 
6 I ACC + 



30 
34 

02 



31 



*»»f^ nui-L. ^^^^^^^ ' 

1 30 



60 



STOP 



4 I 



35 



02 



I I 



/J 

01 



7 I 07 



R "TnR ^ 



4 

-t\ 



Storage 



— 




ANSWER: 



^ATCI4INGJ- STUB~4N™4^^ ^ — i 



DISTANCE to STUB 



ENTER"! F^EmJETsFCYCfT" IN[ r 1 
rPROP. eONSTANT{kHN j 




CONVERT 



X (meters) 



— P 



FROM WAVELEN GTHS TO M eItERS ' 



s (meters 



. ^ , ^ 



r 



I 



ANSWER^ 3ISTAN eE 



" 1 - -\ - 



l£|GT}iiOF^lTUB^.JN Y 



"'1 



e-STl>B - 



t 



-I - V A 



i: 



1—1 



j 



O 




UJ 



Q 
< 

< 
Q. 



_J 

UJ 
X 



Q 
< 

< 

/I- 
UJ 

_l 

UJ 
X 
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TRANSMISSION LINE 



Given the characteristic line impedance, generator frequency, measured impedance at some point on 
the line and propagation constant, the program solves for the impedance at any other point on the line 
either toward the generator or toward the load, the voltage reflection coefficient (magnitude and phase) 
at the point where impedance is determined, and the VSWR on the line. 








h 




^1 








Z 


L 


1 
1 


1 

1 

— • 


1 
1 
1 







1^ — +1 — — -I — ^ 



Given: Characteristic impedance (Zq) of the line 
Frequency (f) 

Propagation constant (k) (k = 1 for air) 

Measured impedance (Z^) at some point on the line 

The Lossless Equations used are: 

Z^.-XL, TAN PI 
^ " Zq+xZ^TAN^Z 

27r 27rf 



where: /3 



X 



ck 



Q 
< 

< 
a. 

h- 
h- 

UJ 



UJ 
X 



c - velocity of light 
Zj = + jX^ 



NOTE: + I implies toward the generator 
- I implies toward the load 



2N-1, 



For the case: TAN /3Z = oo, i.e. , /3i ( — g") where N = 0, + 1, + 2 • ■■ 
„ 2 



Then Z, =- 



^0 



1 



Q 

a: 

< 

u 



UJ 



The reflection coefficient is 



^ Z,+ Z 



VSWR= 



r "0 



1 -|/°z/l 

Reference: Microwave Theory and Measurements, Hewlett-Packard Microwave Division 
Prentice -Hall, Inc. 1962 



UJ 
X 
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USER INSTRUCTIONS 



USER INSTRUCTIONS (Con't) 



SET: 



DEGREES 



ENTER PROGRAM: (Starting Address is 0-0) 
PRESS: GO TO (0) (0) [or ENd] 
PRESS: CONTINUE 
DISPLAY 




ENTER DATA: Zq - 
PRESS: CONTINUE 
DISPLAY 



Z, f Y, k 



X 




-ENTER DATA: Y, R^ X (Z^= R^+jX^ ) 

PRESS: CONTINUE 
DISPLAY 



Z 
Y 
X 



(1) 



ENTER DATA: l -^X ( +1 -^Generator 

- I —►Load) 



YES 




PRESS: CONTINUE 



PRESS: SET FLAG 
I 

PRESS: CONTINUE 
I 

(2) 



1) 



DISPLAY 



(2) 



z 

Y 
X 



PRESS: CONTINUE 
DISPLAY 



Z 
Y 
X 



PRESS: CONTINUE 
FINAL DISPLAY 




PRESS: CONTINUE to enter new 
Xj, Rp or I. 



EXAMPLE 



Z = 50 
o 



ohms 
,6 



f = 1 X 10" hertz 
k = 1 

■^1 " where Z^=Rj+jX^ 



R 



50 



I = 1 


75 


In Wavelengths 


In Meters 


Xj = -25.000 


51.757 


Rj = 25.000 


53.876 


0^ = -116.565 

\pI\ - 

VSWR= 2.618 


59.232 
.447 
2.618 
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0 i 



c 



CLEAR 
X-^[ ) 

STOP 

9 

' ll 
7_ 

6 

ENTER EXP 



• 20 

; 23 

i 

1 23 
! I 3 

j4r 

■ 35 

.;o2 

i 1 1 
1 1 

07 



07 
06 
26 
10 



1 X y 


2 






















k 


f 


Zo 








s 

j „ 






I 






i 
i 












i 






> 







" GO ! 



.J 



) ; 40 j 

r 6 



ROLL 

) 

T 

STOP 



2 j vi 



o 



22 

23 

I I 

17 

T 01 s 

-J 3- 

' 27 

r 1 3 ' 

! 27 \ 

I 23 
Tt4 
'T 40 



ROLL ^ 



RCL 
STOP 

IF FLAG 



13 

I 

i_ i 

I 31 1 

i _ ji 

' &\ \ 
. 41 



. 27 ; 

I _ 3 

'n)3 T 



06 



1 36 ^ 



43 



ENTER Zq , f , k 



R 



X 



ENTER X.,R 



±1 



0 



CALCULATE TAN;8Z 



. ENTER ±1 
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u 



, 0 



J 



8 



Key 



TO RECT 
STOP 



66 
4 
27 



ispfi 



Storage 



b 



ROLL 4^ 
TO POLAR 

In X 

ACC + 



■ ' 1 

|34[ 

^ 65 i 
' 74 i 



TO RECT 
ROLL ^ 



+ 



ROLL \^ 
TO POLAR 

In X 
ACC — 



RCL 
STOP 



66 j 
22 j 
33 I 
33 i 
04 I 

31 1 

I 

62 j 
65 J 
63^ 

61 ' 

I 

74 
41 



CALCULATE 



REFLECTION 



DISPLAY 



1 



- 



COEFFICIENT A 



^.1 



ROLL ^ 



ROLL 
CLEAR X 

^xty 

STOP 
CLEAR 



X 27 ' 
T 2"7 
\ 01 I 
j 33 I 
22 

I I 
. 31 

I 35 

i_ 
37 

30^ 

4! 

I 20 



CALCULATE VSWR 



tv 



DISPLAY 



1 



VSWR 



GOTO( )( ) I 44 



53 Aj i|f 



1 

7 
X 

a 



01 

07 ^ 

T7t 
"27^ 

36 , 

I 3'^ 



0 



Denotes 



DfSPLAY 



1 



Revision 



J 
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2 TO POLAR f 62 



Xty I 30 



CHG SIGN I 32 



5 i ROLL \ I 3 



— 



35 



8 



GOTO( )( ) 



44 



05 



9 



END ! 46 i 



CALCULATB spECf^t^cAS^ FOR^ TAN 



6 



5r>io* f- 



4 A 



0 



4. 



j . 



2 '•• 
1 

3 

4 
5 
6 



11 



A Denotes Revision 



3 

b 

\ — 



1 
5 I 

5 

F 



f 



I 



4_. 
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WYE-»»DELTA and/or DELTA-*-WYE CONVERSION 



LiJ 
X 



Q 
< 

< 
a. 



LiJ 
LlI 

@ 



Q 
< 

a 
< 



Ixi 

_l 



Q 
< 

< 
a. 

h- 
h- 

LJ 



LiJ 
X 



The following notation is used: 



UJ 

_i 

LjlI 
X 



Delta -♦•Wye Conversion: 



:zjs) 



Zr.C 



Zn(S) 





Wye — ♦Delta Conversion: 



^1 



:y^(S) 




Ya(S) 




By loop and nodal equations the following equations may be obtained 
Delta— ♦Wye: 



Z,(S) 



Z (S) - 
c ^ 



Z , (S) Z (S) 





(S) 








(S) 







Z , (S) + Z^ (S) + Z (S) 
ab^ ' be ^ ' ca ^ ' 



Wye-*- Delta: 



Y^(S) Y^(S) 
^ab^^^ = Y^(S) + Y^(S) + Y^(S) 



\(S) Y^(S) 
\c^^^ = Y (S) + Y,(S) + Y (S) 



Y^(S) Y^(S) 



^ca^^) ^ YJS) + Y^(S) + Y^(S) 

Because of the similarity of the two sets of formulas, the same basic relationship is used in the program for 
either wye to delta or delta to wye conversion. Thus, circuit values are given as impedances when converting 
from Delta to Wye, and as admittances when converting from Wye to Delta. 

Reference: Introductory Circuit Analysis - S. Ivar Pearson and George J. Maler 
Publisher - John Wiley & Sons, Inc. 1965 
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USER INSTRUCTIONS 

Notes: To convert from Delta to Wye, the in- 
puts must be in ohms (fi) and in rectangular 
form, i. a Z = R + jX. 

To convert from Wye to Delta, the inputs must 
be in mhoslU) and in rectangular form, i. e. 
Y = G + jB. 

Outputs are in the same dimensions as the 
inputs and are in rectangular form. 

If one wishes to transform impedances from 
Wye to Delta or admittances from Delta to 
Wye then the data must be inverted before in- 
put by displaying each input in Polar form, 
(use TO POLAR key), taking the inverse of 
the magnitude, changing the sign of the angle and 
after placing these quantities in theX and Y 
registers respectively pressing the TO RECT 
key. 

ENTER PROGRAM (Starting Address is 0 - 0) 
PRESS: GO TO (0) (0) [or ENd] 
PRESS: CONTINUE 
DISPLAY 




ENTER DATA: X 



ab 
or 



B. 



b 



PRESS: CONTINUE 
DISPLAY 



ab 

Y, or }- 



X 




ENTER DATA: 







^c 


or 




or 


B 

c 




G 

c 



X 



PRESS: CONTINUE 



USER INSTRUCTIONS (con't) 
DISPLAY 




ENTER DATA: X 



ca 
or 
B 

a 



PRESS: CONTINUE 
DISPLAY 



R 

ca 
Y, or 
G 



X 



B , or X 
ab a 

G , or R 
ab a 



Z 
Y 

X 



PRESS: CONTINUE 



^bc ^ 
Sc \ 



Z 
Y 



PRESS: CONTINUE 



B or X 

ca c 

G or R 
ca c 



Z 
Y 



Note: To reset problem, re-enter program 
card and proceed with user instructions. 



EXAMPLES 

(A) Wye Delta 

Input: Y, - 2 + iOty Solution: Y ^ = .3333U 
b ab 



Y = 3 + jOU 
c 

Y = 1 + jOU 

2i 



Y, = 1.0000U 

be 

Y = . 5000 15 
ca 



(B) Delta-*^Wye 

Input: Z^ =0 + jSfi Solution: Z^= 2. 5 + i2. 5J2 

z^^ = 0 + m 



Z^^ = 10 + m 



Z^ =-L25 + il.25QJ^~\ 



Z = 2. 5 + 12. 

c 
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0 



O 



O 



CLEAR 
X^i ) 

STOP 
ACC 4" 

TO POLAR 
X^i ) 

d ^ 

y-^{ ) 
C 



2 

STOP 
ACC + 

TO POLAR 
X^l ) 



9^ 
3 

STOP 
ACC + 
TO POLAR 
X^{ ) 



RCL 
ACC — 
TO POLAR 
ACC + 

¥"""" ' 



1 



20 
23 
07 
01 
41 
60 
6Z 
23 
I 7 
40 
I6_ 
25 



DISPLAY I 710 INDICATE RlRST ENTRY 



or Gh 



^ab 



or Bi 



0 



ENTER Xab.Rcb Bb 



STORE Z^Jt) OR Yb IN | POLAR FORM 



02 DISPLAY 2 TO INDICATE StCOND ENTRY 
4 



RbcorGcXbc or Be 



0 



ENTER Xbc,Rbc or 



60 
62 
23 
10 
40 
I I 
25 
03 
41 
60 
62 
23 
I 4 
40 
I 3_ 
6~" 



CALCULATE PARTIAL DENOMINATOR 



STORE Ztjc OR Ye IN ffOLAR FORM 



DISPLAY 3 TO INDICATE THIRD ENTRY 



R 



CO 



or G, 



CO 



or B, 



0 



ENTER Xca,Raa Gq , Bq 



FINISH CALCULATING DENOMINATOR 



STORE Z7a OR Yq IN POLAR FORM 



RECALL DENOMINATOR 



RECTANGULAR 



j 62" 
60 



16 
2 7 
I 3 
33 
12 
34 



24 
07 

of 



PAGE 2 



' 7 
X 

ROLL ^ 

, 7 
7 _ 

ROLL ^ 
I TO RECT 
STOP 

yt^ ) 
8 

d 

yt^ ) 

) 

8 

yi^^"^'"" 
, " 9 

r 

) 

y^t 
9 

GOTO( )( ) 

2 

END 



33 

24 

07_ 

iF 

27 

14 

36 

15 

35_ 

2Z 

24 

07 

40 

07 

22 

66_ 

41 

2T 

I 0 

24 

17 

24 

I 4 

40 



10 
24 
I I 
24 
16 
24 
I 3 
40 
I I 

4T 

02 

05_ 

46 



4 



REeALl- COUNT, POSITION, AND DISPLAY 
ELEMENT IN RECTANGULAR- FORM 



0 



DISPLAY 



FOR NEXT 



ROTATE REGISTER CONTENTS IN PREPARATION 



EOTVALENT lELEMENT 



BRANCH 



CALCULATE^ NEXT" ELEMENT 




TCHEBYSHEFF FILTER DESIGN - FINITE TERMINATIONS 
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Lii 
X 



Q 
< 

< 
CL 

h- 
H 
UJ 
_l 

LU 
X 



Q 

< 
< 

.0- 



LlI 



LU 
X 



Q 

< 

(J 
< 

h- 
LxJ 



UJ 
X 



Q 
< 
U 



0 



UJ 
X 



This program computes component values for Tchebysheff lowpass filters between equal or unequal finite ter- 
minations. The network designed is of the form: 



R1 



o- 




t K 



IN 



O- 



L 2 
_rrvw 



C1 



C3 



'0 



R2 



— O ^ 



The first element of the filter is a shunt C. The order (no. of poles) may be even or odd but if the order is even 
the mismatch loss between the terminating impedances must be equal to or greater than the ripple. 



n ODD 



10 LOG HO 



4R^R2 

(R-i+Re)^ 



10 LOG 



10 



OUT 




^dB=PASSBAND RIPPLE 



n EVEN 

10 LOG ,0 ^^^^^ 



(R1 + R2)' 



10 LOG 10 

P IN 



User specifies: 

Pass Band Ripple - 6^ (dB) 




Corner (- Frequency - f ^ (Hz) 
Filter Order - n 
Load Resistance - Rg (fi) 

Generator Resistance - R^^ (fi) 
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77 



The equations used are: ^ _ 2n 



4 sin 
1 ^ (C -^)'^c^i 



L 



16(slnlg|^)(slnl<g|±ll) 



c 



16 (sm Iig|^) (Sin Il(g|±ll) 
\ ' n ' n ' K c 



K - 1, 2, . . ., n 

where C ~ ^ ^^^^ ^^^^ ^ ^ } 



1 / / 2 
77 = 2 sinh-^- In ( yg + 1 - A + 



€ 



vCa" ) j 



4R^R2 



A = p (n odd) 



or 



4R^R„ ^ 

A = X 10- dB (n even) 

(R^ + Rg) 



NOTE: A < 1 



In general, Tchebysheff filter designs with unequal terminations the solution will be non-unique. Filters de- 
signed by other methods may differ considerably from those formed by use of this program. This does not 
imply that either method is incorrect. 



Reference: Network Analysis and Synthesis 
by Louis Weinberg 

McGraw-Hill 1962 



2 
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USER INSTRUCTIONS 



USER INSTRUCTIONS (Con't) 



SET: 



RADIANS 



FLOATING 



PRESS: END 

ENTER PROGRAM: Side A followed by Side B 

PRESS: CONTINUE 

DISPLAY 



Z 
Y 
X 



ENTER DATA: £ ^ _».Z, Y, n X 



PRESS: CONTINUE 
DISPLAY 



Z 
Y 
X 



ENTER DATA: - 
PRESS: CONTINUE 
DISPLAY 



Y, Ri 



X 



n 
1 

Cl 



z 

Y 
X 



PRESS: CONTINUE 
'DISPLAY 



n 
K 



Z 
Y 
X 



K EVEN 




K ODD 



After K = n the display clears. To solve 
another problem : 

PRESS: END 

For filters with L input, replace STEP (9 - 1) 
with a (X). 



EXAMPLES 



dB 

fc 
n 

Rg 

R. 



L2 



. 1 dB ripple 

620,000 Hz 

6 (Filter Order) 

600 ( Load Impedance) 

135 ( Generator Impedance) 



7kC 



L4 



03 



L6 
-rvnnrv. 



C5 



07 



C^ = .0117/i.F 

Lg = 13.71 jj, H 

Cg = .0143^ F 

L4 = 12.94^ H 



= .0113 



Lg = 5.030^ H 

NOTE: If execution stops at location +(3)(a) 
the attempted maximum power gain exceeds 1. 



Gain at D. C. - 

Attempted Max 
Power Gain 



Z 
Y 
X 
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.J 

X 



s^ik^ 



Q 
< 
U 



i3^ 

'4? 



I' |25| I 
2 102 f 




.hedb- - • 



,7] + 133! 



i 



lOToi ) f 44 I i I ~ 



4 
X 

b 
t 

1 

ROLL ^ 

X^i ) 

f 



04 ' 

36 

14 

27 

01 

22 

23 

15 > 



41 
47 



STOP 
CONT 

aoTO( ) 144 
— 34 



DISPLAY 



Ci 



n 



X 
4 
X 

ROLL 
COSX 

xty 
e 

X 

d 

X 

"2 



27 
36 
04 
36 



22 

'73 ' 

30 

12 

36 

17 
'36 ^ 



02 
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cr 
< 

< 

Q. 



X 



Q 
< 

< 
a. 

h- 
h- 

LU 

LxJ 
X 

s 



Q 
< 



U 
_l 

u 

X 



Q 

cr 
< 

< 

Ql 



LxJ 



UJ 
X 



Q 
< 

< 



LiJ 
_l 

UJ 
X 
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S PARAMETER TO Y PARAMETER CONVERSION 



This program converts S parameters for linear (active or passive) circuits to Y parameters. The 

1 



equations used are as follows: 

yii 



21 



D 



'12 



R 



12 



D 



'21 



22 



D 



s^^ + 1 



D 



R 



2 o 



(1 + s 



11 



1 + s 



22) 



'12 



'21 



where R^ is the characteristic impendance of the S parameter measuring system. 



The Matrix form is 



R Y = 2 (S + I) 

0 ^ ' 



-1 



thus 



= 2 (R Y + I) 
^ o ' 



The input and output format subroutines allow flexibility in the entering and outputing of data. These 
subroutines translate into and out of the standard internal format - polar form with magnitude expressed in 
natural logrithmic form. A similar program can be used for the reverse transformation; the input and output 
sections need be changed since S will usually be expressed in dB and degrees and Y is Siemens (Mho) in 
rectangular coordinators. 

Similar programs could be written to convert S to Z or Z to S as follows: 

2 (I - S) - l] 



Z = R 



S.I-2 

0 



Z + I 



•1 



or convert from Z to Y or Y to Z as follows: 
■1 



Z - Y 



Y = Z 



•1 



This program requires 



'11 
'12 
'21 
'22 



in dB and degrees 



and R in ohms 
o 



Reference: Hewlett-Packard Journal, February, 1967 
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USER INSTRUCTIONS 



USER INSTRUCTIONS (Con't) 



SET: 



DEGREES 



FIXED 



PRESS: END 

ENTER PROGRAM: Side A followed by Side B 

PRESS: CONTINUE 

DISPLAY 



0 
0 
11 



Z 
Y 
X 



ENTER DATA: 9 
PRESS: CONTINUE 
DISPLAY 



Y, R 



11 dB 




ENTER DATA: 9 



PRESS: CONTINUE 
DISPLAY 



'Y, R 



12 dB' 



X 



0 
0- 
21 



Z 
Y 
X 



ENTER DATA: 9 



21 



Y, R 



21 dB 



PRESS: CONTINUE 
DISPLAY 




ENTER DATA: 9 



22 



•Y, R 



22 dB 



PRESS: CONTINUE 



DISPLAY 




ENTER DATA: R - 
o 

PRESS: CONTINUE 
DISPLAY 



•X 




PRESS: CONTINUE 
DISPLAY 



PRESS: CONTINUE 
DISPLAY 



PRESS: CONTINUE 
DISPLAY 



To run another case: 



YlfGn-iB 



11 




^12"^12^ ^^12 




^2r^2l'" ^^21 




^22"^22^ 



22 



2 



EXAMPLE 



S parameters for 2N3478 transistor in common 
emitter configuration, at 100 MHZ = 10 ma 
Vce = 5V 

General form 



s.. = 
1] 


R.. / 




^11 = 


-10.09 


/l03° 


^12 " 


-29.63 


/60° 


^21 " 


17. 21 


/l02° 


^22 " 


-1. 67 


/-8° 


R = 

0 


50 0 





General form 





(G.. + jB..) 


^11 = 


(14.34 + jlO. 97) mS 


^12^ 


(-98.49 - j645.94) ji S 


^21^ 


(78.91 - jll9.99) mS 


5^22 = 


(-657.70 + jl070. 83) ji S 
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5 \ i 



< 0 CLEAR 

(+) 



r 

20 J 

T 



i " i3ii5l' iTs) I P" ""B;:;') ) |44|^' ~^ 



71 •janl3~ 



< ! 




i ! AsuB^ i 77 ' 



! 01 



I 



02 1 



1 ' 1-*^ 



J~- — -4—- — ••L.-*- _ _ _ t -J- _ ' — f U — f — ._ , ^ 



-1~ — -4— — h— — 
07 I 



3 
7 



20 5 



B 13 




^ AsuB^ I 77! 

/i 7 



'4V:*i + "33! 

-4- 

125 



i 



.07 

L _ 

763 



'O! 3 

4; X-^t) '23 

^r^fy-^o T40I 

''"l"^ 8 ^Mol'^ 
, 

s.|r^"2 io2|2 
C-'^ 1 'oPj 

,«.^ooTO( ) 44 J__ 
AsuBT 77 

ig i+H; -2 3 I 



TO POLAR j 62 ^ j I I [Oj 0 

c,*" inx '65 5 1 r — I 



_ i 



1 



I 

i I 

i I 



r i 



•S' 



23 

I'll 
140 

6 

13!" 



<■ ~ f— 



a ^ 

'/y 27 

5 ~ '14 * 

fli i 

;4 74 

* TO RECT 66 ' 




r--l£u- 



1 



^7!' ciE«« ~ 20 j 
-jr -'of |-- 

2 02 

',7 ; 



_ ! J 

_L_J__J 



4 — 

H h 

! _| 



-■] 



TO POLAR j62 I 

'i^'*"'T65"^ 

^^x^.rt2l1- 



r 



X. 



^21" 



r 



r- -3 - r ; — iU 



_3l^J? 



,9i """"" i77T ' 

f^i ! j__.L_.i _-«-| 

-I • ' ! 

r lis 



-1 



1 
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5C 



Mi 
u 




< 



i 
•J" 



t 1 



25 

1~ 



TO RECT 



ACC + 



'3lr JC-^O 1231 
? i - 

,{-0 ! £^ f 135 



60^ 



X<-() ^ 67^ 



8 

t 

__ 

111 

""9 

t 



10^ 



27 

67, 

34r " 

12' 

i 



33' 
67' 
I I 

27' 



E 

t 



33 

t ^271 



1\ 



+ 33 

I 25l ^ 



i 



1 • 

(-) 



) * 67' 



— 34^ 



4 



1 ' 



+ 



' 15 
33 
25 
74 



TO RECT I 66 

ACC - 63 J 

^RCL 61 

ACC - 63' 

TO POLAR 62, 

t 27. 

2 



2 I 

'(-) Inx 



02 

_ 

2 5 
65 

ACC - 63 

B^"^' 13 ] 

xty ^30, 

— 34^ 
b 

f 



C 



16 ' 

n2 r 
,"33 ^ 



|ST CHG sign|3 2|~ I 




CLEAR ! "2oi'" :gNTMR t 

'/■vf Inx 1 65 I r 

r^j^ t" ^27^" 1 



JC<*-{ ) 67 

Y 
f 



1 , 01 ; 
7 ACC - 63 

!Hi i ooTO( ) i 44 

- • - 

>' ASUBV I 77 

- - f h 

+ 331 I 



' 27 
, 15. 
I 33 



i '25 
^-►( ) 2 3' 



I . 9 ' II : 
- . - f - 5— 

1 01 ^ 

, CHG SIGN 32 > 

. arc T j 72 1 



I 



14 - 



+ ^ 33^ 

y^i ) ^ 40 I 

b 14 

r 16 

•ou t ; 22I 



- i 



" r I 
I I 



_ i \ 



- " ~ - ' - I ^- - -;• - - ^ 

1 1 O rk'x III 



4 3 I 03. 
7 I 07| 



I 



14 ^ 

^12 s' 



E 

+ .33! 

\} b 14 



1 

T 

I 



1 -L™ 

17 r 



1^ 
—J 



) 40 ? 

""8 16 r 

jCn " I 24", 

E ~'T2''' 



1l ^i^'*^ ^^---^ Zl..^ 



r 



7I X^o ;67| 

- 34 

;c ^ 

RCL I bl j 



--1 

ACC + I6O: 

r^i RCL ! 61 



23 



r — 34 



1 

L__ieL 



T 



8 

'(-) 



•tr 



C2 



+ 

9 
+ 

9 

yt^^ 



9 f 
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FREQUENCY RESPONSE 




This program calculates the forced frequency response of a systems described by a ratio [f 
of factored polynomials. 



where r. = a + iw 
] 

The program is limited to a maximum of six complex roots. That is, f(s) may have six zeros and no 
poles or six poles and no zeros, two zeros and four poles, or any other combination of poles and zeros which 
has a maximum of six critical frequencies. Less than 6 natural frequencies may be considered by inputting 
zeros of the form 0 + 0^.. The frequency response of arbitrary mathematical functions may be calculated since 
the program does not require complex conjugate root pairs. 



f(s) = 



(s-rp (s-rg). . . 



(s-r^) (s-r^). . . 



NOTE: It should be emphasized that only the forced or steady state response is obtained. All natural responses 
must be negligible if the calculated response is to be compared with experimental results. 
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USER INSTRUCTIONS 



USER INSTRUCTIONS (Con't) 



Using the Origin Controls, locate the pen as 
follows: 

A) For Magnitude: X = 10 in. , Y depends on 

Yscale 

B) For Phase: X = 10 in. , Y = 10 in. 



PRESS: CLEAR 
SET: 



DEGREES 



PRESS: END 

ENTER PROGRAM: Side A followed by Side B 
PRESS: GO TO (-b) (8) 
SET: 



PROGRAM 



PRESS: 4 if the magnitude response is desired 
5 if the phase response is desired. 



SET: 



RUN- 



PRESS: GO TO (-c) (5) 
SET: 



PROGRAM 



ENTER: SCALING CONSTANTS for Y Axis 



- c 


5 


N 




6 


N 






ENTER 




7 


EXP 




8 


N 





50 db/in 


20db/in 


10 db/in 


lOOO/in 


50O/in 


250/in 


-c 5 


1 


2 


5 


5 


1 


2 


6 


0 


5 


0 


0 


0 


0 


8 


2 


1 


1 


0 


1 


1 



SET: 



RUN 



PRESS: GO TO (-c) (d) 
SET: 



PROGRAM 



ENTER: SCALING CONSTANTS for X Axis 



- c 


d 


N 


- d 


0 


N 


1 


ENTER 
EXP 


2 


N 





2 . 5 in/ decade 


5 in/ decade 


10 in/decade 


-cd 


1 


2 


5 


-dO 


2 


5 


0 


1 


5 






2 


0 


3 


3 



SET: 



RUN 



PRESS: END 

ENTER DATA: Z.P-*-Z*, Winitial'^'Y, AW-^X 

( AW > 1) 

PRESS: CONTINUE 

■ENTER DATA: r^^ from complex factors (s - r^) 
where r^-sij^ + jbj 
Zeros are input first followed by 
poles. 



PRESS: CONTINUE 



•Y, a. 



- REPEAT ENTERING r^ until i = 6. 

The magnitude (or phase) 
response is plotted after entry 
of the 6th zero or pole. To alter 
AW during execution, 

PRESS: PAUSE 

ENTER DATA: New AW C 
PRESS: CONTINUE 

To plot the other parameter (phase/magnitude) 
do the following: 

PRESS: GO TO (-b) (8) 

SET: 



PROGRAM 



PRESS: 4 or 5 
SET 



RUN 



PRESS: GO TO (-c) (5) 
SET: 



PROGRAM 



ENTER SCALING CONSTANTS for Y Axis 
SET: 



RUN 



* Z.P represent Z(number of zeroes) and 
P (number of poles). For example, a 
filter with 2 zeroes and 4 poles would be 
entered as 2 .4 . 



2 



USER INSTRUCTIONS (Con't) 



EXAMPLE 
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PRESS: GO TO -(0) (0) 

RE- INITIALIZE BY : W initial -♦b , Z . P a 

Using Origin Controls, locate the pen as 
follows: 

A) For Magnitude: X = 10 in, , Y depends on 

Y scale 

B) For Phase: X = 10 in. , Y = 10 in. 
PRESS: CONTINUE 

The phase (magnitude) response is now plotted. 

To run a new case, REPEAT the USER 
INSTRUCTIONS. 



NOTE: To convert the X Axis Scaling Constants 

to centimeters, divide the -- db by 2. 5,i.e 

50 db/in. = 20 db/cm. 
To convert the Y Axis Scaling Constants 
to centimeters, multiply by 2.5, i.e. 

2.5 in. /decade = 6.25 cm. /decade 



6 Pole Chebyshev (2 db ripple) 

Z.P =0.6 
W initial = .01 

AW = 1.05 

r^^ = 0.1738 + j 0.2609 
rg = 0.1738 - j 0.2609 
rg = 0.1272 + j 0.7128 
r4 = 0.1272 - j 0.7128 
rg = 0.0465 + j 0.9737 
rg = 0.0465 - j 0.9737 

SCALING CONSTANTS 

a. For magnitude 10 db/in. 

b. For phase 100°/in. 

c. For frequency axis 5 in. /decade 



In setting the origin for the Magnitude 
plot, place the origin at X = 10 in. (25 cm.) 
and Y = 6 in. (15 cm. ). 



3 
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9100B MECHANICS PROGRAM LISTING 



INV i4>) = TAN</> - (f> 



111 
X 

72002 - TRANSCENDENTAL EQUATION (ARC INVOLUTE IN GEAR DESIGN) 
Solves for the angle <^ in radians in the following expression 

Q 
01 
< 

O where the INV {<f>) is given. 1x10" ^ < 1x10^ ( <^ is in radians), 

t 72003 - SPRING DESIGN - COMPRESSION AND EXTENSION SPRINGS 

IJJ This program calculates one of three variables (d - diameter of wire, N - number of turns of 

> wire, and D - mean coil diameter), the remaining two being set, and calculates the maximum 

^ allowable stress. Other inputs are set to predetermined values. 

X 

72004 - STRESS AND STRAIN FROM A RECTANGULAR ROSETTE 

Calculates the principal strains and stresses given rectangular rosette and strain gauge inputs. 

Q 

a: 
< 



9100B ONLY 



V 72501 - PROPERTIES OF AREAS 

This program determines the properties of any area which can be approximated by 

LJ a set of rectangles. The properties determined are: 

_J 

^ 1. Area 

2. Moments of inertia 
i— . 3. Distances from axes to the centroid 

^ 4. Products of inertia about the centroid 



Q 
< 

< 
a. 



I- 

UJ 



LlJ 
X 




Q 
< 
U 




TRANSCENDENTAL EQUATION 
(ARC INVOLUTE IN GEAR DESIGN) 
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UJ 
X 



Q 

cr 
< 

u 
< 

CL 

H 
I- 
LlI 



This program solves the following equation for (j) in radians for a given value of the involute of <^ , Inv(<^ ). 
The method of solution is an iteration technique using the Newton -Raphson equation ^^\+^ ~ f'((^ )' 

The range of INV(<^)is 1X10"^^ <INV(<#>)< 1X10® 

resulting in <P in the range 4.085X |0~^ RAD < <f> < 1.571 RAD 



LU 
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LlI 
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CL 
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LlJ 
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LJ 
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Q 

ct: 
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LlI 



UJ 
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EXAMPLES 



USER INSTRUCTIONS 



INV(<^) = .35 rad 



INV(<^) - 1 X 10" ■^'^ rad 
INV(<^) = 1 X 10^ rad 



+ 1 



<f) = . 894 rad 

<^ = 4.085X 10"^ rad 

cf>=l. 571 rad 



ENTER PROGRAM (Starting Address is 0 -0) 

SET: I I RADIANSi 

PRESS: GO TO (0) (0) [or ENd] 

PRESS: CONTINUE 



ENTER DATA: INV(0) 
PRESS: CONTINUE 
DISPLAY 



X 




FLOWCHART OF ITERATION TECHNIQUE 



*^1 - '^EST 
I 



CALCULATE i{<f>^) 
I 



CALCULATE f'(S^n) 



no 




DISPLAY <?!> n + 1 
IN THE Y REGISTER 
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I I 
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CLEAR 
STOP 
ACQ + 

3 
X 



ROLl 4^ 

In X 

ROLL ^ 
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ENTER EXP 
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CHG SIGN 
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IF x>y 
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E 
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Stsrai 



ENTER INVW 




JT^ MAY BE„_N^^^^ f O MAKE A ^^R0U|H^^J1|IC^^^ §)F THE^£UIN|CTJON 

TO DETERMINE A GOOoi ESTIMATE. HEF^ THE) FIRsIf TWC) TERIj/IS OF 



THE SERIES REPRESENJING THE TANGeJnT V\jERE jJSED 
CALCULATE ^^ "^5.^^ BASED ON ' lNV(f>). 



TO 



BEGINNING OF ITERATION LOOP 



CALCULATE -f(</)n) = -TAN<#)n +*n 'NV(<#>) 



25 
35 



CALCULATE f'(<^n^ 



CALCULATE jjf-^ 

f (9n) 
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ROLL ^ 
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ROLL ^ 
CONTINUE 
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END 
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TO 10 



IS LE^S THAN TOLERANCE (10"^) 

T: IF iGREATER^^CONrnMUE. 



^n+1 
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SPRING DESIGN - COMTOESSION & EXTENSION SPRINGS 



This program calculates one of three variables (d - diameter of wire, N - number of turns of wire, and D - mean 
coil diameter), the remaining two being set, and calculates the maximum allowable stress. Other inputs are set 
to predetermined values. 



Basic relationships: 



8 PD 



Kwc 



Kw„ 



1 +■ 



5d 
D 



assuming the spring is all set out; Kw is used 
as the most accurate coefficient when Tjonside ring 
the maximum stress. 



K = 



Gd^ 
8 Nd' 



S = Maximum stress 

P = Maximum load 

d - Wire diameter 

D = Mean coil diameter 

N== No. of active coils 

G = Modulus of rigidty 

K= Spring constant 



Q 

< P, K, G are set to predetermined or desired values for a given application. 

O With two of the three variables d, N, and D set to predetermined values, the 3rd is calculated from 

< the expression j, 

K = 



UJ 

_J 

UJ 



8 ND^ 



Dimensions: 



5 

^ , S, G in lbs/in ; K in lbs/in. 

N dimensionless 

Q 

OC P in lbs. 

^ D, d in inches 

U 

< 



Iljj Reference: Design Handbook 

^ Associated Spring Corporation 

LlI Bristol, Connecticut 

X 




09100-72003 

USER INSTRUCTIONS 



EXAMPLE 



ENTER PROGRAM (Starting Address is 0- 0) 
PRESS: GO TO (0) (0) [or ENd] 
PRESS: CONTINUE 
■DISPLAY 




ENTER DATA: P-^Z, K -»-Y, G-^X 

PRESS: CONTINUE 
DISPLAY 




■ENTER DATA: d— ►Z, D-^Y, N-*-X 

(Enter unknown as zero) 

PRESS: CONTINUE 




PRESS: CONTINUE 




•Note: To alter solution, enter new set of data 
(d, N, D) after display (2), setting unknown to 
zero. 



To reset complete problem with new P, K, and 
G; 



PRESS: END 



We wish to use music wire (G = 11. 5 x 10 psi) 
to make a spring which will compress 1/4" with 
5 lb. load (k = 20 lb/in. ). The spring must fit 
over 1/2" pin. Maximum load will be 10 lbs. 

P = 10 
k = 20 

G = 1. 15 X lo"^ 

d = 0 (d selected as the unknown) 

D = . 625 (Choose to allow clearance) 

N = 10 (Reasonable number for max- 
imum compression of 1/2 in. ) 



ANSWERS: 



S = 37,955.01 

d - . 0763 (Calculated value) 
D = . 625 



N= 10 



(Given values) 



Enter: New data for 14 gauge wire (good corre- 
lation) 

d = . 0736 (Standard wire size, 14 ga) 

D=o 625 same 

N = 0 (New unknown) 



ANSWERS: 

S = 42,270.12 
d= .07361 
D= .625 J 



Given 



N = 8 . 6387 (Calculated N) 



Therefore, for 14 gauge wire with 10 lbs. maxi- 
mum load and other variables as specified, the 
number of turns should be 8. 64 and the maxi- 
mum stress is 42, 270. 12 lbs. 



PRESS: CONTINUE 
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STRESS AND STRAIN FROM A 
RECTANGULAR ROSETTE 



The basic eqiiation obtained from graphical representation of a set of strains is 



r 



sin 



2 



The strains can be displayed graphically in the following manner 
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with 2<^p is the angle from the e axis to the principal strains. 

By writing equations for sin 2<:^ and cos 2<^ and substitutii^ into equation (1) the following equations are 
obtained: 



^max, ^min 



c^) = 1/2 tan 



2 2 

+ X: 



xy / max + \ 

\ min - / 



.1 r 



xy 



X ^y 



(from the figure) 



Q 
< 

u 



Using a rectangular rosette gives <^ = 0°, c^^ ~ 45°> ^^i^d ^ 3 = 90° then from equation (1) it is found that 
^x^ ^y ^ ^3' Xxy ^2 ^2 "(^1 ^ ^3) • 



UJ 



UJ 
X 



09100-72004 



Then writing the principal strains in terms of e^, e and € ^ we obtain: 



.max, .min==l/2(.,. .3) . 1/2 ^(^1"^)' 4^ ^ " (^1 ^ ( t ) 



' max 



1 2 ^2 -(^1 + ^3) 



cf) „ = 1/2 tan 

^P 6j - €3 

The principal stresses are then related by the following equations which may be obtained from investigation of a 
Mohr's circle for strain. 



max = 



CT" min - 



E 




2 


1 


- IJ- 




E 


1 


2 


- M 




E 



r max = — ^max 

2 (1 +m) 

e = strain (in. per in. ) 

cr = stress (psi) 

X max = maximum shearing strain (radian) 

T max - maximum shearing stress (psi) 

- angle between the € axis and the principal strain axis, (degrees) 

[1 - Poisson's ratio (dimensionless) 

E = Modulus of elasticity (psi) 



Reference: The Strain Gage Primer 
Perry 8i Lissner 

McGraw-Hill 
New York, 1962 



USER INSTRUCTIONS 



EXAMPLE 



June 1969 
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SET: 



DEGREES 



ENTER PROGRAM (Starting Address 0-0) 
PRESS: GO TO 3 - d 
SET: 



PROGRAM 



ENTER: Program steps for constant ju 
SET: 



RUN 



PRESS: GO TO 5-c 
SET: 



PROGRAM 



ENTER: Program steps for constant E 



SET: 



RUN 



PRESS: GO TO (0) (0) or END 
PRESS: CONTINUE 

DISPLAY 




ENTER DATA: € - 
o 

PRESS: CONTINUE 
DISPLAY 



Z, 6 



•Y, 6 



X 




PRESS: CONTINUE 
DISPLAY 



Z 
Y 
X 



PRESS: CONTINUE 
DISPLAY 



min 
max 
T max 



Z 
Y 
X 



Note; II and E are included in the program as 
constants dependent on the materials being used. 

Denotes Revision 



/i = . 3, E = 30 X 10 psi 



Given: = 285 x 10 in. per in. 

-6 

€ = 65 X 10 in. per in. 



6 2= 102 X 10 in. per in. 



Result of calculations: 



5 . 



^ min = 3. 5752 x 10 in. per in 
-4 

^ max = 3. 5125 x 10 in. per in 

■V -4 
/max = 3. 1550 x 10 radian 

,0 



P 



■27.2734' 



O' min = 4. 65251 x 10 psi 
3 

O- max = 11. 93320 X 10 psi 
T max = 3. 64034 x 10^ psi 
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CLEAR 
STOP 

y^i. ) 

f 
ROLL ^ 



E 

ROLL ^ 

"2 

X 

E 

y^( ) 

TO POLAR 
ROLL ^ 

J" 
ROLL 4^ 



y^( ) 
C 

ROLL ^ 

x^y 
y^[ ) 

d 

STOP 
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STORE" €. 



ENTER €3 



» ^2 




CALCULATE max 



CALCULATE € 



MIN. 



AND 



MAX. 



AND STORE /max., ^Mik > AND €max 




^MAX. 



^MAX. 



MIN. 



DISPLAY 
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f 

4 



~ • 


1 5 


^ 1 


27 


e 1 


1 2 




35 


^ i 


25 


, |„ 

arc ▼ 1 


72 


tanx 1 


71 




27 








02 




35 


CLEAR JC i 


T7 




t 

STOP 
CONTINUE 



27 
4 I 



47 



CONTINUE T"47 





CONTINUE 


47 


- 


CONTINUE 


47 






23 






1 5 




; ^ 


27 






2 7 




; ^ 


' 4 




I ^ 


ob 






16 






33 






40 




E 


1 2 




\ ROLL ^ 


22 




f 


36 






2 7 






— _ f. 

14 ; 




' ROLL ^ 


22 




+ 


33 






40 ' 




r 


He ^ 


s 




25 ■ 


C5 


i 1 


01 




+ 


33 






"^2 ^ 




X 


36 * 




CONTINUE 


47 ' 




CONTINUE 

















CALCULATE 




i 





0 



0 



a, 



DISPLAY 



^j^l^^i^^ ^j^^^ ArS A OOW-ST^VWT- 





















1 


CALCULAT 


E AND STOReI €max. + ly^ 


AND €m,^' 





J „ 



I I 



1 i 



47 
47 
47 
47 

23 
15 
30 
35 
17 
36 
40 
I4_ 
22~ 
27 
36 
01 
30 
34 
15 
30 
35 
25 
27 
27 
16 
36 
I 2 
22 
36 
14 
22 
30_ 
46 
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m: 





1 






^MAX. 


°"VIAX. 

















Q 

< 




Q 

< 
< 

□l 



UJ 



UJ 
X 




Q 

a: 
< 

< 

Q- 

H- 
I- 
UJ 



UJ 





^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 

PROPERTIES OF AREAS 



This program determines properties of any area which can be represented (or approximated) by a set of 
rectangles. The properties determined are; 

A — Area 

— Second Moment of the Area with Respect to Axis x' 

— Second Moment of the Area with Respect to y' Axis 

— Second Moment of the Area with Respect to X Axis 
ly — Second Moment of the Area with Respect to Y Axis 

Xp — Distance From Y Axis to Centroid Parallel to the X Axis 

Y — Distance From X Axis to Centroid Parallel to the Y Axis 
c 

I^iy, — Product of Inertia of Area About the Centroid 

— Moment of Inertia About the Principle Axis U 
I^ — Moment of Inertia About the Principle Axis V 

The axes are illustrated below: 
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The formulas used in the program are given below where , Xg, Yp and Y2 describe the boundaries 
of each rectangular component of the composite area as seen in the illustration below. 



B. = 
1 

D. = 



X2 - Xj 

X2+X1 



V, 



A =2 B,D 

X_ = 



Yc = 



y> 



i2(B.D.V.) 
A i ^ ^ ^ 

i5:(B.D.W ) 
A i ^ ^ ^ 



J^2(B.D.2) + E(B D V 2) _ A(X j2 
j2 i 1 1 i 1 1 1 ^ 

3^ v-,„ 2, w,. n2 



(AB *^) + Z(B D W^) - A(YJ 



^x'y= Z (D.B.V.W.) - A(X^)(Y^) 



u 
Q 



1^1 cos^ 0 + ly.sin^^ - 1^1 y, sin 2 Q 



Xarc tan 
2 \-y 



/ 2Ix'y' \ 



y'cos^ Q+\\ su?Q * 1^1 , sin 2 Q 




2 
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USER INSTRUCTIONS 



USER INSTRUCTIONS (Con't) 



SET: 



DEGREES 



PRESS: END 

ENTER PROGRAM: Side A followed by Side B 

PRESS: CONTINUE 

DISPLAY 



Z 
Y 
X 



ENTER: DATA: Xg—*^ Y, Xj- 

PRESS: CONTINUE 
DISPLAY 



X (of Area i) 




ENTER DATA: Yc 



■Y, Y.—*^X (of Area i) 



PRESS: 
CONTENUE 




PRESS. SET FLAG 
PRESS: CONTINUE 
DISPLAY 




(Print) 



PRESS: CONTINUE 
DISPLAY 




(Print) 



PRESS: CONTINUE 



DISPLAY 




(Print) 



PRESS: CONTINUE 
DISPLAY 




(Print) 



PRESS: END for a new case 



EXAMPLE 




Area 


^1 


^2 


^1 


^2 


1 


0 


3 


1.875 


5. 563 


2 


3 


12 


.563 


7.188 


3 


12 


21 


0 


7.375 


4 


21 


30 


0 


5.125 


5 


30 


36 


0 


2.688 


6 


36 


37. 75 


0 


1.250 



2926.4 Ij 
3.267 Y^ 
201.5 A 



17674.2 I^ 
672. 6 
-4.478 



73199. 1 ly 

16.615 X^ 

201. 5 A 

-1323.5 I^,^ 

17570. 5 ly, 

776.3 I^, 



3 
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y-¥i ) 




L, 

a 


1 4 






8 


10 


1 

T 


25 


X 


' 36 . 


X 


36 


a 


1 5 I 


+ 


33 


GOTO ( ) 


44 r 










0 


00. 

' , „ i„ 


0 


00 
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40 



DISPLAY 



X, 



DISPLAY 















t 


> 27^ 


f 


15 


X 


36 


0 


16 




35. 




25 




34, 




40, 


c 


16 


2 ^ 


02 


X 


36, 


3 


13 


t 


27 




14 




34 




25 


• 
• 


. 35^ 




25 


arc » 


72. 


tanx 


71 


1 




sinx 


70 


^-►( ) 


23 






d 


1 17; 


2 


02 


• 


' 35; 




1 25j 




^ 23S 







r 



I 67 

~' "I'm' 
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c 




Q 

ce: 
< 

U 

< 

I- 
I.. 

w 



a 
< 
u 

0. 



I 



—f~ 



r 

I' ' ' * 



5 5, i 



T r 



1 



- . -5 



u ' 



.J 



1 



: -5 1 



L_i 



— LI — 



1 . ' 



T 



L_J 



i—- -J 



:iT' 

Li „ 



1 

« 



r 



"1 



1 

4 



C 




u 

X 



111 



9100B BUSINESS PROGRAM LISTING 



73001 - ANNUAL INTEREST 
Q Calculates i that satisfies the equation: 

< P id + iP 
^ R = 



< (1 + i)^ - 1 

CL 

UJ 73008 - AMORTIZED LOAN 



Calculates the monthly payment on the principal of a loan for a specified term, the amount of 
payments toward principal and interest, and a running total of the amount of payments toward 
principal and interest to date. 



9100B ONLY 



Q 
OH 

< 73101 - RETURN ON INVESTMENT FOR UP TO 16 VARYING CASH FLOWS 

Q This program solves for the value of interest per period for up to sixteen 

varying cash flows o The program solves the equation: 



16 

PV (Present Value) = Y, 

k = 1 (1 + i)k 

UJ where Cjj represents a cash flow per period. 

X 

Pi 



Q 

q: 
< 

u 
< 
a. 



LlI 



u 

X 

Ed 





o 




ANNUAL INTEREST 
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UJ 
X 



Q 

cr 
< 

< 

Q- 



X 



Q 

< 



This program calculates i that satisfies the equation 



R=P 



(1 + i)"-1 



for a given R, P , andn . 

where R = monthly payment 
P = principal amount 
n = number of monthly payments 
i - monthly interest rate 

The program uses this i and calculates and displays an annual interest. 

The solution is based on a Newton -Raphson iteration technique which converges to a point which satisfies the 
condition 



'K-1 



<10 



-9 



UJ 

UJ 
X 



Note i,^ is the K^'^ estimate of i and i is theCK-D^*^ estimate of i . The initial estimate of i is R/Punless 
otherwise specified. If the solution does not converge it may be necessary to enter a better initial estimate. 



The value of i that satisfies the equation 



f(i) = (1 + i)"(R-Pi)-R=0 



Q 
01 
< 

< 
Q- 



is found. The annual interest is displayed. 



Reference: Principles of Engineering Economy 
by E. L. Grant 



UJ 

UJ 
X 



Ronald Press, N.Y. 



1950 



Q 
< 



UJ 



UJ 
X 



09100-73001 

USER INSTRUCTIONS 



EXAMPLES 



ENTER PROGRAM (Starting Address is 0-0) 
PRESS: GO TO (0) (0) [or ENd] 
PRESS: CONTINUE 
DISPLAY 




ENTER DATA: P 



Z, R 



Y, n 



X 




PRESS: SET FLAG 
PRESS: CONTINUE 
DISPLAY 




ENTER DATA: (estimated i percent) 

^ i ,% — »-X 

H est 



PRESS: CONTINUE 
DISPLAY 




(i is annual interest) 



P 
R 
n 



$10,000 
$276.45 
40 months 



i = 5.999% (Note: This is annual interest) 



P 
R 
n 



$2500 
$81.95 
36 months 



i = 11.087% 
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c 



0 



o 
I 

CD 



O 

a: 



CLtAR 
1 

STOP 
ACC + 
ROLL ^ 

z 

IF FLAG 



1 

ROLL ^ 



GOTOf )( ) 
CLEAR X 



STOP 

^0 
0 



In X 

ROLL ^ 



f 

X 



20 
01 
41 
60 
22 
23 

1 7_ 
43 
01 
03 
22 
30 
35 
2^ 
44 
02 
01 
37 
27 
27 
02 
41 
27 
01 
02 
00 
00 
35_ 
25 
23 
14 
27 
01 
33 

2 5 
27 
65 
22 
15 
36 
25 
74 



DISPLAY 1 HO INDICATE FFIRST ENTRY 



N 



ENTER N,R, AND P 



R 




GENERATEj ig^t-^ 



BRANCH tI) ijER^jioN 



DISPLAY 2 TO INDICATE SECOND ENTRY 



lest 



0 



0 



ENTER ie^t 



CONVERT 



ANNUAL INTEREST RATE iN 



PrRUENT rro MONTHLY IR ATE . 



PER^NT 



I ! 



! i 



jCALCULATE ~AND STORE 4 Ik+ U 
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X-*( ) 123! 



7 



ROLL ^ FZZ 



I 4 



Stosri 



„ 4 



— 34 I 



CALCULATE-- f'(j^)=<l + i,)" ( il^^ -p) 

! 1 + Ik* . 



CALCULATE f( Ik ^^^^^ 




CALCULATE 



JC->( ) 



0 

0^ 



30 



23 



27 



01 



CALCULAT 



^ONV-ERl^ 



02 

1)0~ 
"36^ 



^ERCENTA 



f(iK) 



KTT 



— I 
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6 i 0 ' CLEAR X 
' ™^ ROLL >^ 



Display 

V 



PAUSE 



ROLL \- 



37 I 
31 1 

22! 



iK+1 % 



^ I ENTER EXF \ 26 



0 ^ 

^] 9^ 

3 ! CHG SIGN j 32 i 
I ROLL 4^ j 22 i 



00 ^ 

I 

1 1 [ 

!„ 



COMPARE 



IF x>y 

2 

, CLEAR OC 



I 53 
I Q2 

[37 

T3O I 

^ ^ 

*i I CLEAR a: ^ 3 7 

! END ' 46 ' 



10"^ BRANCH TO DISPLAY. IF GREATER THAN 10 



CONTINUE 



7 ^ xty 



CLEAR AN 



f 1 



Ak 



K+1 



TO 



ITERATION. 



0 I DISFJLAY JEACHjTERATION 



10^" Tolerance , « i f " le ss . th aini 



D position + i 



0 



0 



o 



- J 



DISPLAY s 



1 



1 




Q 

< 



UJ 

LlI 
X 
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AMORTIZED LOAN 



This program calculates the monthly payment necessary to amortize a loan over a specified number of 
periods. The principal, annual interest rate, and term of the loan in months are provided by the user. 

Q 

^ The program displays (or prints ) the calculated monthly payment, showing the amount paid toward principal 

O and the amount of interest for each payment. After each payment, the total principal paid, total interest 

Q- paid and the remaining loan balance may be displayed. After displaying the last payment, the program ends 



displaying the total principal paid, the total interest paid and the total interest and principal paid. 



^ The monthly payment is constant. The amount paid in interest is one-twelfth the annual interest rate 

X times the remaining principal. The remainder of the monthly payment is subtracted from the principal 



balance. 



^ The following equations are used: 



» -n nT 4.U1 T 4- Annual interest rate (i) 
(J Percent Monthly Interest (i') = — ^2 ^ 

g. 

Monthly Payment (P') = 1200 ^^^ i/l200)" 
LiJ (1 + i/1200)^ - 1 

Ixl 

X where S is the amount of the loan (original principal) and n is the term of the loan in periods. 

'— ' P = P' rounded up 

Monthly Payment Paid on Principal (Pj^) = P - I 
q: Monthly Interest Payment (I) = P x i' 

U Remaining Loan Balance (P„) = S - P 

< 



R' ^ " T 



Q- n 

l1 Total Principal Paid to date (P_,) = Z P,;r 

r_ 1 a=o M 

r- a 
U 
_J 

LJ Total Interest Paid to date (I_) = L I 

-1- i a=o 3- 



Total Amount Paid on loan to date = P^^ + I^j, 
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USER INSTRUCTIONS 



USER INSTRUCTIONS (con't) 



ENTER PROGRAM (Starting Address is 0 - 0) 
PRESS: GOTO(0)(0) [or END ] 
PRESS: CONTINUE 
DISPLAY: 




ENTER DATA: Loan principal in Dollars 
Interest Rate in Percent 
Term of loan in Monts 

PRESS: CONTINUE 

DISPLAY: 



•Z 
•Y 
X 



Z 
Y 



Calculated Monthly 
Payment raised to 
nearest cent 




ENTER DATA: 
Desired monthly 
payment — X 



PRESS: CONTINUE 

DISPLAY: For each month the following brief 
display occurs: 



Amount of Payment 


- Z 


toward Principal 




Amount of Payment _ 


- Y 


toward Interest 




Payment Number 


- X 



To stop display - PRESS: PAUSE 

If desired, while stopped, 
PRESS: SET FLAG 
PRESS: CONTINUE 



display: 



Total Principal 
Paid to date 

Total Interest _ 
Paid to date 

Remaining Loan 
Balance 



X 



To continue incrementing payments 
PRESS: CONTINUE 




DISPLAY 



Amount of Last 
Payment to Principal 

Amount of Last 
Payment to Interest 

Payment Number 



Y 
X 



PRESS: CONTINUE 
DISPLAY: 



Total Principal Paid 

Total Interest Paid - 

Total Interest and _ 
Principal paid 



Z 
Y 

X 



Note: To print out, substitute program steps 
noted in program listing. 
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EXAMPLES 



Example 1 

Borrow $1,000 at 6. 25% 
for 5 years and 3 months. 



PRESS: GO TO (0) (0) [ 
PRESS: CONTINUE 



or END 



ENTER DATA: 

1000 
6.25 
63 



PRESS: CONTINUE 
DISPLAY: 

0 

0 

18.67 



Z 
Y 
X 



Z 
Y 
X 



Calculated monthly payment = $18. 67 
PRESS: CONTINUE 



PRESS: 



DISPLAY: 



Pause when display for 36 months 
is reached. 

16 .15 — Z - Payment toward Principal 
2. 52 — Y - Payment toward Interest 
36 — X - Payment Number 



PRESS: SET FLAG and CONTINUE 
DISPLAY: 

531. 51 — Z - Total Principal Paid to Date 
140. 61 — Y - Total Interest Paid to Date 
468.49 — X - Loan Balance 

PRESS: CONTINUE 

PROGRAM STOPS TO DISPLAY 

17. 88 — z - Final Payment - Principal 
.09 — Y - Final Payment - Interest 



63 



X - Payment Number 



PRESS: CONTINUE 



display: 



1000 
175.51 
1175.51 



Z - Total Paid - Principal 
Y - Total Paid - Interest 
X - Total Paid 



Example 2 

Borrow $1,000 at 6.25% 
for 5 years and 3 months. 



PRESS: GO TO (0) (0) 
PRESS: CONTINUE 

ENTER DATA: 

1000 ^ 

6.25 »- 

63 



[ or END ] 



PRESS: CONTINUE 
DISPLAY: 

0 

0 

18.67 



Z 
Y 
X 



Z 
Y 
X 



ENTER: $19.00 into X register. 
PRESS: CONTINUE 

PRESS: PAUSE when display for 36 months 

is reached. 
DISPLAY: 

16.54 

2.46 

36 



Z - Payment - Principal 
Y - Payment - Interest 
X - Monthly Payment 



PRESS: SET FLAG and CONTINUE 

DISPLAY: 

544.54 Z 



139.46 



455.46 



X 



- Total Principal 

Paid to Date 

- Total Interest 

Paid to Date 

- Loan Balance 



PRESS: CONTINUE 
PROGRAM STOPS TO DISPLAY 



12.72 
.07 

62 



PRESS: CONTINUE 
DISPLAY: 

1000 

171.79 

1171.79 



Z - Final Payment to 
Principal 

Y - Final Payment to 
Interest 

X - Payment Number 



Z - Total Paid - Principal 
Y - Total Paid - Interest 
X - Total Paid 



V 
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CLEAR 

9 

STOP 
CONTINUE 



) 

C 

ENTER EXP 

2 
b 

X 

1 

+ 

xty 

In X 
X 

X 

1 

ROLL >^ 



20 

23 
I I 
41 

47 



STOFE n 



01 . 

02 ' 

35 
40 ; 
16 . 
26" 
02 
35 
25 
40 
I 4 

36' 

27 

01 

33 

"l 7 

30 

65 

36 

25 

74 
36" 
27 
01 
34 
31 
35 



INTERES 



CALCULAiTE MONTHLY 



AS PERCENT 



UALCGLATE MONTTrLY 



1=: 



STO^E-$ 



CALCULATE _ ( L± 



CALCULATE 

— -PAYM 



ENTER EXP 


26T 


2 


02 


X 


"^6 




25 . 




^7 - 


int X 


^^64 


' "xty 


30 


'if x~'>"y 


""■"5 3' , 



MONTHLY 

ENT 



ENT^R AMOUNT OF! THE 
LOATlXSl 
AND 



rTNtERE^T7Tit^ 



PERIODSrC^^^^^^ 



,| — ,j„™_Y-.„L 



p' = 



1200 ) 
V ' IJ>00 / I 



ROUND up TO NEAREST CENT 



Si 
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I™ 

i i I 



a li 



u q 



pi 



+ 

ENTER EXP 

2 

CLEAR JC 

ROLL ^ 
CONTINUE 

STOP 
CONTINUE 

) 

3 

yt^ ) 

_ 

IF X::^ 

7 

±1 
r 

int X 



ENTER EXP 



25 
33 
26 

02 
35 

37 
27 
22 
4 7 
41 
47 
23 
I 3 
24 
I 

I 

50 
0 
07 
01 
33 
40 

1 l_ 

14' 

27 

16 
36 

2 I 
05 
33 
25 
64 
27 
26 
02 

35 
3 

30 




0 



0 





^TURE^P 



REeAht 



BRANCH 



eOUNTER ANB-"-fi^ 



WHEN CALCULATION IS COMPLETE 



PAYMENT (D- AND -R4yN0^ UP 




OF PAYMENT 



PAID ON 



..-4 



GALGULATE ~P-l--AMaUN^ 



PRINCIPAL 



RECALL AMOUNT OWED ON PRINCIPAL 
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LLi 

X 



Q 
< 

< 
Q. 



LjJ 
_1 

UJ 
X 



Q 
< 

u 
< 



_l 

UJ 
X 



Q 
< 

< 

CL 



UJ 
_l 

UJ 
X 



RETURN ON INVESTMENT FOR UP TO 
16 VARYING CASH FLOWS 



9100B ONLY 
PART NO. 
09100-73101 



This program solves for the value of interest per period for up to 16 varying cash flows. The program 
solves the equation: 



N C 

Present Value (P. V.) = (TTT)^ 
_7 

for i to an accuracy better than 10 . 

Cj^ = cash flow per period 

i = discount rate per period 



N< 16 



FLOWCHART 

N C, 
k 



Present Value = .^Z^ (l+i)^ 



(1 + i) ± Ai 



NO 




ENTER: i% guess in X, if desired, 
otherwise enter only P. V. 
and C^Q ; 



± Ai 



DISPLAY 



< 



UJ 



Reference: Financial Management - Analytical Approach, by J. Robert Lindsay and Arnold W. Sametz, 
Richard D. Irwin, Inc. 1967. 



Ul 
X 
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USER INSTRUCTIONS 



USER INSTRUCTIONS (Con't) 



PRESS: END 

ENTER PROGRAM: Side A followed by Side B 

PRESS: CONTINUE 

DISPLAY 




ENTER DATA: C3 - 
PRESS: CONTINUE 
DISPLAY 



Z , C, 



Y, C 



X 




ENTER DATA: Cg Z, C^ Y, C4-*-X 

PRESS: CONTINUE 

DISPLAY 




ENTER DATA: Cg -►Z , C^ 
PRESS: CONTINUE 
DISPLAY 



Y, C. 



X 




ENTER DATA: C^g 
PRESS: CONTINUE 



Z, C 



11 



Y, C 



10 



X 



DISPLAY 




ENTER DATA: C^g 
PRESS: CONTINUE 
DISPLAY 



Z, C 



14 



Y, C 



13 



X 



Z 
Y 
X 



• ENTER DATA: Cig-^Z, P. V. (present valu^^Y 
i or 0 X 

PRESS: CONTINUE 

DISPLAY 




To re-run with different i or P. V. 

To re-run with different values of C, repeat 
USER INSTRUCTIONS 



EXAMPLES 



Example # 1 
Present Value 



^1 = 


.55 


C2 = 


.34 


C3 = 


1.20 


C4 = 


-.34 


= 


.82 


^6 = 


-.57 


C7 = 


.76 


^8 = 


.76 




.76 


^10 = 


.82 


Cu = 


.82 



$9.4x 10^ (Note: 10^ is 

factored out of the 
basic equation as 
a constant. ) 
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EXAMPLE (Con't) 



S2 = 


1.00 






1.24 


=14 = 


1.35 


Cl5 = 


1.46 


=16 = 


0.00 



i = 1.598% 



Example #2 

Present Value = $150. 00 
= 100 
= 100 

i = 21. 525% 



o 
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, Display i 

f p. _ — .1, J r *. 



^ k+) STOP ; 41 
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a. 
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9100B PHYSICS PROGRAM LISTING 



73202 - FLUX DENSITY 

Calculates the flux density along an axis of a circular loop for a specified radius r, current I, 

and distance d. l- .i 

|< d 




73203 - VENTURI METER 

Calculates flow Q by using Bernoulli's equation. 



Q 
< 



73204 - ORBITAL MECHANICS 

Calculates the velocity of a satellite at apogee and perigee and the orbital time in seconds of 
a satellite orbiting a body in space. 



LU 



LJ 
X 



Q 

a: 
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< 

QL 
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Q 

cr 
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PART NO. 
09100-73202 



FLUX DENSITY 



This program solves for the Flux density along axis of a circular loop 



Q 
< 

u 
< 
a. 



LlI 

u 

X 

g 



Q 
< 




r = radius of circular loop 

I = current flowing around loop 

d = distance from center of loop 
2 

A = area of loop (tt r ) 



In free space /j. ^/x^ = Av x 10 



-7 



LlJ 
X 



Q 

< 
< 

Q- 



B = 



2^0 AI 

" 72 ,2. 3/2 
4 TT (r + d ) ' 



B 



2 (47r x 10"'^) Trr^ I 

- - — , 2 X S/2 

4 TT (r + d ) 



2 -7 
2 TT r I X 10 

(r + d ) 



If d and r are given in meters, I in amps, then B is given in webers/meter'^ 



LU 
_J 

UJ 
X 

© 



This formula for flux density is good for thin-wire, circular loops; as d becomes larger and larger the equa- 
tion may be approximated by „ _ 2 tt r^ I ^ j^q-7 which becomes increasingly accurate as the ratio d^ increases. 

d3 F 



Q 
< 

U 



Reference: University Physics, 3rd edition 
Sears & Zemanship 

Addison - Vesley 
1964 



UJ 
_J 

LlI 
X 



09100-73202 

USER INSTRUCTIONS 



EXAMPLES 



ENTER PROGRAM (Starting Address is 0 - 0) 
PRESS: GO TO (0) (0) [or ENd] 
•PRESS: CONTINUE 
DISPLAY 




ENTER DATA: r-^Z, I-^Y. d-^X 

PRESS: CONTINUE 
DISPLAY 




(A) 

r = .2m 

d = 0 m 
1 = 2 amps 



B = 6.283 X 10"^ w/m^ 



(B) 

r = .2m 
d = . 05m 

1=2 amps 



B = 5.737 x 10'^ w/m^ 
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0 INDICATE FIRST DATA ENTRY| . 

ENTER r|,I 
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DISPLAY 
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PART NO. 
09100-73203 



VENTURI METER 



LlI 
X 



This program measures the rate of flow in a uniform flow tube by use of a Venturi meter. 



Q 
< 

< 
a. 



UJ 

UJ 
X 



Q 
< 



A venturi meter is simply a constriction in a pipe which causes a pressure variation directly related to 
flow rate. 

The following diagram applies: 



PRESSURE GAUGES 
P. 




UJ 

_i 

UJ 
X 



Q 
< 

< 



_l 

UJ 
X 



< 



I- 

UJ 



Q (rate of flow) is defined by Q = a^^V^ = ag V„ where a^^, ag are measured areas and V^, Vg are fluid velocities 
at the respective points. 

Bernoulli's equation relates the flow characteristics at points one (1) and (2). 

p^/r + v^^/ 2 g + = Pg/r + Vg^/ 2g + 

Assuming the heights = 

2 2 
then, P^/y + /2g = ^2^^ ^2 where P^^, - pressure 

/ = density 

g = force of gravity 

2 2 2 

Solving for V^^ using the substitution Vg = (a^^ / ag) V^^ 



we obtain = / ^^1 " "^2^ 

r ^(a,/a/-l] 

2g (P. - P2) 

orQ = aj_ = a^ y 



Dimensions: 



a- , a„ given in inches 

2 

Pj^» Pg given in lbs/in. 



UJ 
X 



09100-73203 

3 

y given in lbs/in. 

g given in inches/sec. ^ 

3 

Then the dimensions of Q are in /sec. 



Reference: Elementary Fluid Mechanics 
by John K. Vennard 

John Wiley & Sons 
New York 



USER INSTRUCTIONS 



EXAMPLE 



ENTER PROGRAM (Starting Address is 0-0) 
PRESS: END 
PRESS: CONTINUE 
•DISPLAY 




ENTER DATA: a^ - 
PRESS: CONTINUE 
DISPLAY 



Y. ag 



X 



Z 
Y 
X 



►ENTER DATA: y - 
PRESS: CONTINUE 
DISPLAY 



Z, P, 



Y, P, 



X 




To enter new density or pressure; Press 
CONTINUE 



a^ and have respective areas of 0. 5 ft. & 
0. 25 ft. 2 with pressure drop of 10 psi when water 
flows in the pipe ( / = 62. 4 lb /ft. ^ or 
62.4/1728 lbs/in. 3) 

a^ - 72 in. ^ 
ag = 36 ft. ^ 

y - . 03611 lb. /in. ^ 
P^ = 12 psi 
Pg = 2 psi 

Answer: 19,22L 589 in. V sec. 



To reset problem and/or calculate flow for dif- 
ferent areas (a, & a^); Press END, Press 
CONTINUE after display of Q. 
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PART NO. 09100-73203 





LjJ 



PART NO. 
09100-73204 



ORBITAL MECHANICS 



This program computes the velocity of a satellite at apogee, the velocity at perigee, and the orbital period 
in seconds of a satellite orbiting a body in space. 



Q 

< 

U 
< 
Q- 



LlJ 
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< 

u 



UJ 
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X 




Q 

a: 
< 

u 
< 

Q. 



H 

LU 

UJ 
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Q 

cr 
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Given: 



I- 

UJ 



Find: 



= radius at apogee measured above r^ 

= radius at perigee measured above r^ 

= radius of orbited body 

= acceleration of gravity at r 



/ ^o^^o^ ^p = velocity at apogee 

r (r +r ) 
a a p 



V = V 
p a r 



= velocity at perigee 



P =7rA^a^ V 



orbital period 



2 S.i'-o' 



(r r * + r ) 
a a o 

(r = r ♦ + r ) 
^ p p o 
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X 
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June 1969 



USER INSTRUCTIONS 



EXAMPLE 



SET: 



Radians 



ENTER PROGRAM: (Starting Address is 0-0) 
PRESS: GO TO (0) (0) [or ENd] 
PRESS: CONTINUE 
DISPLAY 




ENTER DATA: g — 

PRESS: CONTINUE 
DISPLAY 



-Y, r 



ENTER DATA: 



PRESS: CONTINUE 
DISPLAY 




.X 




'o 



= (32.2) (3600)" - 7 904 X 10^ 
5280 /.yu4 X lu 



for units of miles and nours 

r = 1,080 miles (moon) 
o 

r * = 8,000 miles 
a ' 

r * = 2,000 miles 
P 



p = 9.810 hours 

V = 6685.948 mi./hr. 

V = 2267.921 mi./hr. 
a 



' To reset problem for same r and g . 



2 



▲ Denotes Revision 
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> CALCULA 
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> CALCULAT 
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PART NO 09100-73204 

orase 
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O 
< 



1^ 



TT 
x'ty 



STOP 

CLEAR X 
GOTO( )( ) 



0 

■6 ' 



END 
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9100B THERMODYNAMICS PROGRAM LISTING 



73851 - HEAT TRANSFER THROUGH A MULTILAYERED CYLINDER 

This program calculates the rate of heat flow through a multilayer ed cylinder. 
Both convective and conductive layers are considered. 



9100B ONLY 



73852 - TRANSIENT CONDUCTION IN A SLAB 

Given the initial temperature of a slab and a fluid, this program determines the 
temperature (as a fimction of time and distance) of the slab as it is immersed into 
the fluid « 




Q 
a: 
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< 



LJ 



UJ 
X 




cz 
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PART NO. 
09100-73851 



HEAT TRANSFER THROUGH A MULTILAYERED CYLINDER 



This program determines the rate of heat flow per unit length through a multilayered cylinder. It has 
practical application wherever fluids of different temperatures are separated by a cylindrical surface since 
Q both convective and conductive layers are considered. 

< 

The basic equation is: 

O 
< 

Ql 



q = UnA(AT) 



where 



and 



2 7r . r L 

o 



U = 



Q ^/r r \/rln/^ol\r ln/^o2 
^ / o . o . \ / o I 1 o ' 



5 ^cl^l ^c2h2 / I ^'il ^ ^'i2 



^1 ^2 



Nomenclature 



U - Outside over-all heat transfer coefficient 
n 



r - Outside radius of the cylinder 

lil o 

^ k - Thermal conductivity of a conductive layer 
pq n 

^ r^^ - Outside radius of a conductive layer 

r. - Inside radius of a conductive layer 
in 

Q h - Film coefficient of a convective layer 

q; n 

< r - Radius to a convective surface 

^ cn 

CJ AT - Temperature difference (inside - outside) 

< 

Q_ q - Heat transfer rate 

h- 
h- 



UJ 
X 



Q 
< 




Reference: Heat Transfer, Alan J. Chapman, Mac millan Company, New York, 1967. 



PART NO. 
09100-73851 



USER INSTRUCTIONS 



EXAMPLES 



PRESS: END 

ENTER PROGRAM: (Starting Address is 0-0) 
PRESS: END 
PRESS: CONTINUE 
DISPLAY 



Z 
Y 
X 



ENTER DATA: r^ - 
o 

PRESS: CONTINUE 
DISPLAY 



Z, T 



Y, T. 




n is the 
layer to 
be entered 



ENTER DATA: For conductive layer 



Z, r 



on 



Y, r 



in 



For convective layer 

0 -^Z, h -►Y, r X 
* ' cn 

NOTE: A convective layer is considered very 

thin and only the radius to the convection 
surface is entered. 

PRESS: CONTINUE 




PRESS: SET FLAG 
PRESS: CONTINUE 
DISPLAY 




A. 

r = . 833 ft. T = 

o o 

r„ = .667 ft. T. = 

2 1 

r^ = . 500 ft. 

h^ = 300 Btu/hr. ft. ^ °F 

kg = 40 Btu/hr. ft. °F 

kg = .10 Btu/hr. ft. °F 

h^ = 6 Btu/ hr. ft. ^ °F 

4 LAYER PROBLEM 



100° F 
500° F 




Tr 



Convective 
Layers 



Conductive 
Layers 



DATA ENTRY: . 833 Z, 100 Y, 500 X 



Layer 


X 


Y 


Z 


1 


.500 


300 


0 


2 


.500 


.667 


40 


3 


.667 


.833 


.10 


4 


.833 


6 


0 



Results: q/L = 1031. 558 Btu/hr. ft. 

B. Same as above except k3 = . 01 Btu/hr. ft. °F 
(Better insulation). 

Results: q/L = 112.008 Btu/hr. ft. 



To run another problem 
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PART NO. 09100-73851 



0 
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44 




00 
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13 



ENTER 



ROLL ^ 



To (+) 



ENTER 



Aon 


h. 


0 






k 



(+) 



0 

ACC 4- 

t 
t 

GO TO ( ) 

b 

a 
1 

t 

e 

2 

X 

TT 
X 

X 
^7 
X 
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35 
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35 
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27 

27 

44 
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13 
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36 



CLEAR X \ 37 
CONT I 47 
END I 46 
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9100B ONLY 
PART NO. 
09100-73852 



TRANSIENT CONDUCTION IN A SLAB 



This program calculates, as a function of time and position, the temperature of a plane in a slab which 
has been heated to an initial temperature and then placed in a fluid of a different temperature. This is equivalent 
to plunging a heated bar into a quenching medium. The program assumes the slab is infinite, therefore, the 
problem involves one dimensional transient conduction. 

The temperature of the fluid is taken to be zero and used as a reference. For example, if the tempera- 
ture of the fluid is actually 40°F and the slab is initially at 100°F, the user would input 60°F (100 - 40) as the 
initial temperature of the slab. The actual temperature of a plane in the slab at a later time is then the calcu- 
lated value plus 40°F (see example B). 



00 



.Tr = 0 




2 L ^ 

L >• 



The temperature is described by 



00 



T = 2T I 
° n = l 



-X ar 



e n 



X=0 

i 

00 



sin (X^L) 



To Jf =0 



+ X 



X= L 



X L + sin (X L) cos (X L) 
n ^ n ' ^ n 



. cos (X X) 



where X is the nth root of 
n 

(X L) tan (X L) - N„. = 0 
^ n ' ^ n ' Bi 

and Ng^ is the Biot modulus (N^^ = h L/k) . 



UJ 

_l 
u 

X 

Ed 



Reference: Heat Transfer, Alan J. Chapman 

Macmillan Company, New York, 1967. 



9100B ONLY 
PART NO. 
09100-73852 



Nomenclature: 

T^ - Initial temperature of the slab 

a - Thermal diffusivity of the slab 

k - Thermal conductivity of the slab 

h - Film coefficient 

L - One -half the width of the slab 

T - Independent time variable 

X - Independent space variable 

T - Dependent temperature variable 

T^ - Temperature of the fluid 

-5 

NOTES: 1. The program performs the summation until adding the next term changes it less than 10 . To 
change this tolerance go to location (-5)(d) and enter the desired exponent. 

2. The calculation of the roots (X^^L ) may be seen by placing a PAUSE at location (1) (c). The root( X^L) 
is displayed in the X register as the solution converges. Place a STOP at location (4)(1) for a display 
of the calculated root in the X register. 

3. The execution time is about two minutes. 



2 



9100B ONLY 
PART NO. 
09100-73852 



USER INSTRUCTIONS 



EXAMPLES 



SET: 



RADIANS 



PRESS: END 

ENTER PROGRAM: Side A followed by Side B 

PRESS: CONTINUE 

DISPLAY 




ENTER DATA: N„. - 
Bi 

PRESS: CONTINUE 
DISPLAY 



•Z, T 



'Y, L 




ENTER DATA: a -*-Z, T -*-Y, X 

PRESS: CONTINUE 

DISPLAY 



T 

n - 
X- 



Z 
Y 
X 



n is the number 
of terms used 
in the summation 



To re-run problem with different X,T , or a : 
PRESS: CONTINUE 
To run new problem: 
-PRESS: END 



N 



Bi 



a 
T 

X 



Results 



20 
= 120°F 
= . 4 ft. 

= .02 ft.2/hr. 
= 1 hr. 
= . 1 ft. 

.0, 



(T^ = 0°F) 



B. 



T = 105.49 F 
n = 4 
X = . 1 ft. 



^Bi = 20 



Temperature of the slab initially is 180 F 
Temperature of the fluid is 30°F 

.0 



L 
a 
T 
X 



Results 



T 
n 
X 



= 180 

= .4 ft, 

= . 02 ft. ' 

= 1 hr. 

= .1ft. 

131.87°F 
4 

.1 ft. 



30° = 150°F 



Vhr. 



Actual temperature is T + 30°F = 161. 87°F 



NOTE: Any consistent set of units may be used. 



3 
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PART NO. 09100-73852 9100B ONLY 
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PART NO. 09100-73852 9100B ONLY 



0 2 

i~y , ; CHG SIGN 

6 

CHG SIGN 
STOP 

X-^( ) 

d 

ROLL ^ 

X 



ii 1 



E 

X<-1 ) 

b 
> 
1 

+ 



GOTO( ) 

ASUBT 

+ 

0 
3 

1-) - 
9 

I -'.^ CLEAR X 

__ 



sin X 

ROLL ^ 



02 ; 

• — I- 

23 .J 
06 . 
.32 
41 

''23 1 

I 7 

531',' 
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40 , 

'34 
12 
67 
34 
14 
27 
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33 
40 
34 
14 
44 
77 < 
33 
00 , 
03 
23 

\ 34 
i I 

,37 
25 : 
73 ' 

Uo ^ 

70 I 

i 31 ^ 

]25"^ 
35T 

! 24') 



3 

<-) 



— 34 



6 



CHG SIGN 3 2 \ 



ENTER 



X 



T < a 



T 

4 



f 

1 

. 1- 

X 

xZy 

E 
X 

~ J 

CHG SIGN 



67 , 
34 J 
15 
35 
25 

36 

30 . 

! 27; 

67. 

34 
; 12 

36 i 

25 
1^32 = 

74 

24 

34 



9 
X 

X<r{ ) 



ROLL ^ 

X 

CLEAR X 



(_) COS* 

X 

X<r{ ) 



ENTER EXP 



II 

36 
67 
34 

I 7 
22 
36 
37 
25 
73 
1 36 ; 
67 ' 

^34 

4 

13 I 
I 33 
'40 I 
, 34"^ 

r— -i" 

. 133 

".34 r 

; 55: 
26 



7 

(-)' 



. IF X>y 

6 

j GOTO( ) 
1 

0 

a 
t 

2 ^ 

X 

< X*-[ ) 

o 

X 

X<r-{ ) 

b 
t 

d 

CONT 
STOP 
GOTO( } 
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9100Ti SURVEYING PROGIIAM LLSTTXG 



Ul 
X 

H 74003 - INVERSE TRAVERSE FROM COORDINATES 

Calculates bearing, distance, and quadrant code from end-point coordinates. 

Q 

< 74004 - THREE POINT PROBLEM 

Calculates the coordinates of an observer's position given coordinates of three other points and 



^ two reference angles to the observer's position 

Q- 

h- 

9100B ONLY 



Ul 
-J 

^ 74101 - TRAVERSE WITH COMPASS RULE ADJUSTMENT OPTION 

Traverses by bearing and distance, calculates coordinates, closure error, total traverse 

g distance and precision ratio. The program may then be used to distribute the closure error 

by the Compass Rule. 

Q 

< 74102 - COORDINATE GEOMETRY AND ENCLOSED AREA 

^ Traverses by bearing and distance and calculates coordinates, enclosed area, and the 

^ following curve data: 



1. Arc length 3. Central angle in decimal degrees 

2. Chord length 4. Coordinates of tangent points 




Q 
< 

< 

a. 



PART NO. 
09100-74003 



INVERSE TRAVERSE FROM COORi:)INATES 



This program will calculate bearings and distances between given coordinates. If it is desired to continue on to 
a new point from the last point entered the operator has only to press CONTINUE and enter coordinates for the 
new forward point. 

The quadrants are denoted by NE = 1, SE = 2, SW = 3 and NW = 4. 



QUADRANT CODE 



LlJ 
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Q 

< 

u 



UJ 



4 = NW 



1 = NE 



3 = SW 



SE 



UJ 
X 
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< 

< 

H- 
h- 
UJ 
-J 

^ 
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09100-74003 

USER INSTRUCTIONS 



EXAMPLES 



SET: DEGREES 
PRESS: GO TO (0) (0) [or END J 
ENTER PROGRAM (Starting address is 0 -0) 
PRESS: END 
PRESS: CONTINUE 
DISPLAY 




ENTER DATA: Point A Northing 

Point A Easting — ► X 

PRESS: CONTINUE 
DISPLAY 




ENTER DATA: Point B Nothing -^Y 
Point B Easting — X 

PRESS: CONTINUE 
DISPLAY 



Degrees 
Minutes 
Seconds 



Z 
Y 
X 



PRESS: CONTINUE 
DISPLAY 




-PRESS: CONTINUE to enter a new course 



Answer: 



Answer: 



Answer: 



1100 North 
800 East 

1300 North 
900 East 



26'' 33' 54.184" 
223.607' 

1 (Quadrant Code) 



1300 North 
1200 East 



90'' 00' 00" 
300.000' 

2 (Quadrant Code) 



1000 North 
1000 East 



33'' 41' 24.243" 
360. 555' 

3 (Quadrant Code) 
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PART NO. 09100-74003 



0 



1^ 
I 

CD 



O 
DC 
Li_ 




CLEAR 
1 

STOP 
ACC + 

STOP 



20 
01 
4 I 
60 
25 
02 
41 

tT 

24 
15 
30 
34 
I 2 
32 
22 
23 
I 2 
33 
25 
30 
"^62 
23 
I 7 
00_ 
5" 

6z 

55 

_„ 

"00^ 

"02" 
I 3 

— 34 

' "'3^ ' 03 

GOTO( )( ) ^ 44 



E 

CHG SIGN 
ROLL /f^ 
) 

xty 

TO POLAR 

IF x<y 

. _ 
0^ 

IF x>y 

"2 



1 

'xZy 



01 

— 34 

2" 02 

GOTO( )( ) i 44 



DISPLAY 1 TO INDICATE FIRST ENTRY 



Ae 



An 



0 



ENTER An,Ae 



STORE STARTING COORDINATES 



DISPLAY 2 TO INDICATE $ECOND ENTRY 



Be 



Bn 



0 



ENTER Bn , Be 



STORE FORWARD COORDINATES FOR FUTURE 
^^^^^^^ ^^^^^^^ ^^^^^ ^^^^ p^QQ^^^ 

^^^^^^^^.^.^^^^ Sr/4Rr/A/(7 POINT. ) 



DETERMINE QUADRANT 



PART NO. 09100-74003 
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Pi 



Q 
< 

< 
a. 



PART NO. 
09100-74004 



THREE POINT PROBLEM 



The three point problem, sometimes known as Italian Resection, involves the determination of coordinates of an 
observers position (Point P) by measuring only angles a & b. The coordinates of points A, B & C must be known. 

To make the solution possible it is necessary: 

1. To construct a circle through points A, C, & P. 

2. Project line P - B to intersect the circle at point I 

(Note: No solution possible if "B" on circle) 

See figure below: 



LlI 
-J 

X 




< 

is; 
u 



O 



LU 
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X 



09100-74004 



USER INSTRUCTIONS 



SET: 



DEGREES 



ENTER PROGRAM (Starting Address is 0 - 0) 
PRESS: GO TO (0) (0) [or ENd] 
PRESS: CONTINUE 
DISPLAY 



Z 
Y 
X 



ENTER DATA: - 
PRESS: CONTINUE 
DISPLAY 



•Y, A 



E 



X 




ENTER DATA: Cj^ - 
PRESS: CONTINUE 
DISPLAY 



•Y, C 



E 




ENTER DATA: ANGLE a 
o 



a 

PRESS: CONTINUE 
DISPLAY 



Z, a' -►Y, a" 



X 




USER INSTRUCTIONS (con't) 



ENTER DATA: ANGLE b 

PRESS: CONTINUE 
DISPLAY 



Z, b' -►Y, b"- 



X 




ENTER DATA: 
PRESS: CONTINUE 
DISPLAY 



'Y. B 



E 



X 




TO ENTER ANOTHER PROBLEM; PRESS: CONTINUE 



EXAMPLE 



DATA 

Coordinates, Point A 
llOON, 800E 

Coordinates, Point C 
1300N. 1200E 

Angle a 

45° 00' 00" 

Angle b 

52° 07' 30" 

Coordinates, Point B 
1300N. 900E 



ANSWERS 

Observers Point (P) 
Coordinates 
1000. OON, 1000. OOE 




a = 45° 00' 00" 
b = 52°07'30" 
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0 



\ T" a \ r-l ■ r~] h I 



CLEAR i 20 



1 

STOP 

d 

ACC — 

STOP 
ACC + 

3 

STOP 
X^l ) 

b 
6 
0 

ROLL ^ 
+ 

ROLL ^ 



+ 

IF FLAG 

d 

SET FLAG 
) 

3 

CLEAR JC 



°' ' DISPLAY 1 TO INDICATE FIRST ENTRY 

41' Ap 



23 
17 

f 

40 1 
16 ■ 
63? 
25 



"STORE — Q/arFAr 



60 ; C ALCULATE 

25 ' 



N 



0 I.ENTER Am, Aj; 



02 1 DISPLAY 2 to INDICATE SECOND ENTRY 

4 I 



■N 



0 



ENTER Cn,Ce 



Cn-An and Ce-Ae 



03. DISPLAY 3 TO INDICATE THIRD ENTRY 

41 



SECONDS 



MINUTES 



DEGREES 



23 

I 4 
06 

00 ^ 
35 
31 

33 . 

1 4 
22 
35 
35 
25 ' 
3 3 
43 

02 ' 

I 7 

54 ' 
40 

1 3 

37~^ 

■ i 
27 

2 7 
04 ; 



ENTER DEGREES, MINUTES 
AND^ SECONDS ' 



"T0-DECIMAL DEGREES 



"STORE — AMGt& 



CLEAR DISPLAY 



DISPLAY 4 



GOTOf )( 1 ; 44 ' 



]o 



0 
00 



■ I 3 




TO INDICATE FOURTH ENTRY 



BRANCH FtOR b ANGLE tNTRY 



RECALL AN(|LE a 
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I" 



X 

tj 



yj 



LiJ 



5*' 





Q 
< 

< 
Q. 



TRAVERSE WITH COMPASS RULE ADJUSTMENT 
OPTION 



9100B ONLY 
PART NO. 
09100-74101 



This program traverses by bearing and distance, calculates coordinates, closure error, total traverse 
distance and the precision ratio. The precision ratio is the ratio of the total distance traversed to the closure 
error distance from a fixed point. 

The program may then be used to distribute the closure error by the Compass Rule. The Compass Rule 
assumes: 



IxJ 
_J 

X 



Q 
< 



LjJ 
-J 

u 

X 



1. Course corrections are proportional to course lengths. 

2. Angular measurement errors are equal to linear measurement errors. 



The Compass Adjustment formulas used are: 

course distance 



easting correction = ^ 



total traverse distance 



j X 1^ easting closure error j 



p. course distance 
northing correction = ~ 



total traverse distance 



QUADRANT CODE 



X northing closure error j 



4 = NW 



1 = NE 



Q 
< 

< 
Q. 



3 = SW 



2 = SE 



LlI 
_l 

u 

X 



< 



LlI 
_J 



5 



9100B ONLY 
PART NO. 
09100-74101 



USER INSTRUCTIONS 



USER INSTRUCTIONS (Con't) 



PRESS: END 

ENTER PROGRAM: Side A followed by Side B 

PRESS: CONTINUE 

DISPLAY 



Z 
Y 
X 



ENTER COORDINATES: 
Northing — ► Y 
Easting — *• X 

PRESS: ACC+ 

•ENTER BEARING ANGLE: 
Degrees Z 
Minutes — Y 
Seconds —♦•X 

PRESS: CONTINUE 

DISPLAY: Bearing Angle 




ENTER DATA: Quadrant Code X 

(NE = 1, SE = 2, SW = 3, NW = 4) 

PRESS: CONTINUE 

DISPLAY 



Z 
Y 
X 




ENTER DATA: Distance 
PRESS: CONTINUE 
DISPLAY 



Y, Distance — ♦•X 



Arc Length — Z 

Chord Y 

Radius X 



At 



PRESS: CONTINUE 
DISPLAY: Central Angle 



Degrees 
Minutes 
Seconds 



Z 
Y 
X 



PRESS: CONTINUE 
'ENTER DATA: Distance 
PRESS: CONTINUE 
DISPLAY 



0 



Northing 
Easting ■ 



Z 
Y 
X 




ENTER FIXED COORDINATES: 
Northing — »-Y 
Easting X 

PRESS: GO TO ( ) ( ) 

PRESS: d 

PRESS: 1 

PRESS: CONTINUE 
DISPLAY 



Precision Ratio 

Closure Error 

Distance 

Traversed 



Z 
Y 

X 



PRESS: CONTINUE 
DISPLAY 




ENTER STARTING COORDINATES: 
Northing — ► Y 
Easting X 



9100B ONLY 
PART NO. 
09100-74101 



USER INSTRUCTIONS (Con't) 



USER INSTRUCTIONS (Con't) 



■ PRESS: CONTINUE 
DISPLAY 




ENTER Bearing Angles: 
Degrees — »• Z 
Minutes — Y 
Seconds — X 

PRESS: CONTINUE 

DISPLAY: Bearing Angle 



Decimal 
Degrees 

2 

2 



Y 
X 



ENTER DATA: Quadrant Code 
PRESS: CONTINUE 
DISPLAY 




ENTER DATA: Distance 
PRESS: CONTINUE 
DISPLAY 



X 



Corrected 
Distance 

Quadrant 
Code 



Z 
Y 

X 



PRESS: CONTINUE 

DISPLAY: Corrected Bearing Angle 



Degrees 
Minutes 
Seconds 



Z 
Y 
X 



PRESS: CONTINUE 

DISPLAY: CORRECTED COORDINATES 



0 



Northing 
Easting 



Z 
Y 
X 



To continue with corrected traverse. 
To enter new traverse data: 
PRESS: END 



3 



09100-74101 



EXAMPLE 



1535.766 °/5 - 

II 97 .eeV/^^eo,/-?. 3/>„ 




N89°00 E 
/THIS BEARING AND DISTANCE 
\ ARE FIXED 



POINT A IS FIXED 

POINT B IS CALCULATED FROM FIXED BEARING AND DISTANCE 

THIS POINT (B) IS THE STARTING POINT FOR TRAVERSE FROM B TO A IN A 

COUNTER-CLOCKWISE DIRECTION 



4 



PART NO. 09100-74101 



OOB ONLY 



c 




a 
< 

it 
U 



1^ S SET FLAG I 54 i 

,9] ROLL >^ I 22 

0" ™ioo'^ ^ 



WQfTF FLAG '("43 



?{ aoTO( ) j 44 I f I filj ______ 



34 



lJ=± 
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PART NO, 09100-74101 9100B ONLY 



1 t 



T 



(+) sinx 



^^^^^ 
..^ j ^ J I t 



31 ^ 



1" 



f 15 



ll"V'V22 display 



rcduis"! chord j, ^^f. 

i length 



9i 



1 - -! 



- - - T 



i 



T 



-r I 35 



■ai f ! '5 \ DISPLA Y ' 

r X — ■ - — — " t-^w- •- - 

.,1 Bri CI 



RCL I 61 I 

u2 t ! 27] 



?^ error Prec- 
troy, '^"^"^""^jratlo 



-r- 



X*-()""'67S 1 i j 



CHG SIGN 32 « 



(+) ^ 



- . 34 



int X ' 64 " 



_ _ 4 _ . 



i I 



- « 34| 



6 



let jc^3^ - j ^ 



- r - f- — ' 1- 

4- '35^ * 



ROU ^ 



31 



'C^ J'-**' '40j 



'T' 



36 t 



J+) - . ACC 
i or 



ACC - 163 



— 34 



> 12 



STOP " r 41 TsEc •minT'^deg' 

.1 ^ J ' - ^ - 4 

LEAR r. ' "^7 1 ; f 



r 



CLEAR « 37 



7 CLEA . 

•^li ROLLi 31 



GOTO( ) 



1' — 



"0" 



- -1- -~ 



47 



H - -1 

"CL ! 6 1 \ I 

iSj s'^"* 32 j I 



X^i) 123- 



^^1'5J_^ 
1 01 

CHG SIGN [32 

^^^^ 

, ^1 TO POLAR 62^ , 



141 



T—ia 



c 
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PART NOo 09100-74101 



9100B ONLY 



! £ • i -1 r 7' T'V ! ^ 
i2:c; STOP 



EA.. NO. I 0 



^ Inter 




5 0| 



- 34 



f 

5 '40; 

I- ' - - - 



'5! 



b 
t 

3 

STOP 



; 14^ 



27- 



' 27 

r 

:03 

I 41 



DIST.I 0 



jpT f I 27! 
Iaj___^*-|_»^J_67l 



JSNTER 



H 3 



GO TO ( ) 

9 

'^if 3~~ 



-J 

UJ 
X 



E 12T I 



S^l GOTO( ) 



34 
03 
44 

I I 

J3; 
I 30 
34 

02 

44 , 



M37 



1 1 



? '3i + U3j ' ^ i 32 ROLL t ; 22^ 

"X 36 



Q 
< 

< 

It, 



.J 

X 



Q 

< 

u 
< 



+ 



02 

27tjNTfR 



*'g,f STOP 

|SMf ^=>^i 50i « , 

i£jr 3 '03; ; 



■4: 

yii) 7247 " 
1^} b ' 14? 

TO RECT f 66 I 

ROLL^^ 31 
+ 33 



f IF x>y 

9 9 

^(-) 7 

. ; GO TO ( ) 



J™ 



14 



00 



04 



SET FLAG 54 



i:_i4.^Li;L._.i.:j 

y IF x = > 50 
C 16 

'"sT" 0 i ooj I " 1 

:at-^ --^-r— ' 1 



y I 

\d\ 

'/}- ROLL ^ I 22 1 

+ 33 

ro'lI>v1 31 

Ijr4 *cc + eoi 

- i '~- \ ~ ' - 

^(-) ; [ TO POLAR 'i 62 i 

m b Ti4| 

41 CLEAR X 37 

IF x<:k^ 52f 
8 10 

L. 



00 ^ 

z 

07 
34 



i 



. ~" ^ """" 



04 

"^4 



I 1" 



13 r- 



, xty 5 30 ^ 



-1 ..1 _ 

' r ROLL ^ 

— " 

- 1 CLEAR X 

i I _____ ^ 

ROLL>^ 



J 



34 

01 . 

22 

37 

"1 31 

r24: 



L ^ J 

i 

"~ "'1 




log 







13 



i£ 9 II 



I at 9 

' 7f 0 • uu| 

,£ . 53^ . _ ! 

i£ 8 '0 

5 5 05 



----- 



|F== 
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(-) 



(-) 

'.J 



:: C 



b 
STOP 

b 
t 

intx 
b 

6 
0 
X 

xty 
t 

int X 

ROLL ^ 

X 

ROLL ^ 
STOP 
CLEAR X 

ROLL ^ 

RCL 
STOP 

GOTO( ) 

2 
3 

CHG SIGN 
1 

GO TO ( ) 

4 
7 
+ 

GO TO ( ) 

5 

END 



DISPLAY 



QUAD' 



DIST. 0 



4; 



27 



64 

34 

23 

14 

06 

00 

36 

30 

27 

64 

34 

31 

36 

14- 

31 

41 

37 

31 

61' 

41 

25 

44 

02 

03 

32 

01 

44, 

04' 

07 

331 

33 

44 

05^ 

00 

461 



DISPLAY 



SEC MIN DEG. 



DISPLAY 



EA. NO. 0 



■■if 



I ;,„J„-1 



1 



1 CT 



_4 




COORDINATE GEOMETRY AND ENCLOSED AREA 



9100B ONLY 
PART NO. 
09100-74102 



LjJ 
X 



Q 
< 

< 
a. 



LlJ 

_j 

UJ 
X 



Q 
< 



This program traverses by bearing and distance and calculates coordinates, enclosed area, and the following 
curve data: 

1 . Length 

2. Chord 

3. Central angle in decimal degrees 

4. Coordinates of tangent points 

This program is designed to traverse from point to point on a survey map indicating coordinates of successive 
points on the survey and also indicating the descriptive features of tangent curved portions. If direction of 
traverse is given in degrees and lengths in feet, then the area is given in square feet. The four quadrants are 
represented as follows: NE = 1, SE = 2, SW = 3, NW = 4. 

QUADRANT CODE 



4 - NW 



3 = SW 



1 = NE 



ixl 



UJ 
X 



Q 

cr 
< 

< 
a. 



UJ 

UJ 
X 



Q 

cr 
< 



o 



UJ 



UJ 



N 




CLOSURE ERROR 
AN = -.005, AE=OOI 

AREA = 35615. 182 SQ.FT. { .8176 ACRE) 



9100B ONLY 
PART NO. 
09100-74102 



USER INSTRUCTIONS 



SET: 



DEGREES 



PRESS: END 

ENTER PROGRAM: Side A followed by Side B 

PRESS: CONTINUE 

ENTER COORDINATES: 
Northing Y 
Easting — X 

PRESS: CONTINUE 

DISPLAY 



Northing 
Easting - 



Z 
Y 
X 



ENTER BEARING ANGLE DATA: ^ 

Degrees Z 
Minutes — Y 
Seconds — X 

Note: Decimal Degrees, Decimal Minutes or Decimal 
Seconds may be entered provided they are entered in the 
proper register. 

PRESS: CONTINUE 

DISPLAY 



Decimal 
Bearing 

2 

2 



Y 
X 



NO 



ENTER DATA: Quadrant Code (1 = NE, 2 = SE, 3 = SW, 4 = NW) 
in X register 

PRESS: CONTINUE 

DISPLAY: Intermediate results 



Inter. Res. 
Inter. Res. 

3 



Z 
Y 
X 



2 



USER INSTRUCTIONS (con't) 



9100B ONLY 
PART NO. 
09100-74102 



ENTER DATA: Distance — »-X (for normal traverse line) 



PRESS: SET FLAG 
PRESS: CONTINUE 
DISPLAY 



(360° a°) ora2_ Y 
360 X 



-PRESS 
PRESS 
PRESS 



CONTINUE-<- 



DISPLAY 



arc length 
chord length 
radius of arc 



YES 





Note: 1. If progressing counterclockwise 

and arc is bowed inward with respect 
to the area then -- PRESS: CHG 
SIGN. Otherwise proceed. 
2. If progressing clockwise and arc is 
bowed outward with respect to the area 
then -- PRESS: CHG SIGN, aherwise 
proceed. 



PRESS: CONTINUE 
DISPLAY 



North Coord. 
East Coord. 



Z 
Y 
X 



PRESS: RCL 



DISPLAY 





Note: This display enables a closure error to 
be obtained between the initial coordinate point 
and that point as seen by the calculator after 
the path has been traversed. 

PRESS: 3 (i^contains enclosed area) 

DISPLAY 




To restart new problem, PRESS: END 



3 



9100B ONLY 
PART NO. 
09100-74102 

EXAMPLES EXAMPLES (con't) 



STARTING COORDINATES = Coordinates of A 



Coordinates of A: 



10109.075 
8343.505 



Northing 
Easting 



NE 88 25' 40" 
Distance 121.84' 



Coordinates of B: 

10112.418 

8465.299 



Northing * 
Easting * 



NW 15 56' 32' 
Distance 18.69' 



Coordinates of C: 



10130.389 
8460. 166 

NW 34" 08' 
Distance 228.75' 



Northing * 
Easting * 

10" 



Coordinates of D: 



10319.727 
8331.800 



Northing * 
Easting * 



SW 79 25' 09" 
Distance 131.88' 



Coordinates of E: 



10295.511 
8202.162 



Northing * 
Easting * 



SE 37 " 08' 00' 
Distance 35.00' 



Coordinates of F: 

10267.608 
8223.291 

START OF CURVE: 



Northing * 
Easting * 



SW 52 52' 00" 
Distance 225.00' 



Coordinates of G : 



10131.782 
8043.914 



Northing * 
Easting * 



N. E. 65'' 52' 00" 
Distance 225. 00' 



Coordinates of H: 

10223.775 
8249.248 



Northing * 
Easting * 



SW 65* 52' 00" 
Distance 50.00' 



Coordinates of I: 

10203.332 
8203.618 

SE 20° 37' 14' 
Distance 50.00' 



Northing * 
Easting * 



Central angle 93.513 

81.605 --- Arc Length 
72.845 —- Chord Length 
5O0OO ---Radius 



Coordinates of J: 

10156.536 
8221.227 



Northing * 
Easting * 



SE 38 35' 02" 
Distance 114.88' 



Coordinates of K: 

10066.734 
8292.873 



Northing * 
Easting * 



NE 50 06' 00" 
Distance 66.00' 

Coordinates of A: 

10109.070 Northing* 
8343. 506 Easting * 

CLOSURE ERROR 
N = -.005 
E = +.001 

ENCLOSED AREA: 

35,615.182 sq. feet 
.8176 acre 

*Coordinate Answers 



Central Angle 13. 000 

51.051 --- Arc Length 
50.941 — Chord Length 
225.000 — Radius 
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CLEAR 
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ENTER 
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STOP 


41 


Distance 
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arc ▼ 
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ENTER 






IF FLAG 
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34 


DISPLAY 


ROLL >|r 
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31 


/SEC 
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ROLL 4^ 
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41 
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X 
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00 
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35 
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+ 


33 
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_____ 
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1 CHG SIGN 
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ENTER 
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STOP 


41 


QUAD 
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IF x = y 


50 
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GOTO( ) 
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T 




Septunibor 1, 1960 



niOOB STllUCTURES PROGR.\M LISTING 



LlI 
X 



Q 

a: 
< 

< 

a. 



74203 - CANTILEVER BEAM - INTERMEDIATE LOAD 
Calculates shear, moment, and deflection. 



74204 - CANTILEVER BEAM - TRIANGULAR LOAD 
Calculates shear, moment, and deflection. 



I- 
LJ 
-J 

LiJ 
X 



74205 - COORDINATES OF EQUALLY SPACED POINTS ON A CIRCLE 

Computes the rectangular coordinates of equally spaced points on a circle given the center point 
coordinates, radius and offset angle of the circle, and the number of coordinate points desired 
on the circle. 




a 
cr 
< 

< 
a. 



Ld 
X 



q: 
< 




c 




Q 
< 

< 
Q- 



UJ 
-J 

LJ 
X 



PART NO. 
09100-74203 



CANTILEVER BEAM 
INTERMEDIATE LOAD 



This program computes the shear, moment, and deflection reactions for a cantilever beam with a concentrated 
intermediate load as given by: 

CANTILEVER, INTERMEDIATE LOAD 

Yr-- b-- 




Q 

cr 


Reaction Rg 
and 

Vertical Shear V 


Bending Moment M 
and 

max bending moment 


Deflection y, maximmn deflection, 
and end slope 9 


\CKA 


Rg = +W 


(A to B) M = 0 


(A to B) y = -^^(-a^ + Sa^l - 3a2x) 


1= 


(A to B) V = 0 


(B to C) M = -W(x -b) 


(B to C) y = ^ [(^ - + 2a^] 


LJ 
_J 

^ 


(B to C) V = -W 


Max M = -Wa at C 


Maxy = -^^{3B.h - a^) 


LJ 
X 






a=+^^ (A to B) 



Q 
< 

< 

Q- 



LJ 
_l 

U 
X 

g 



NOTATION: W = Load (lb) 

M - Positive when clockwise 

V = Positive when upward 

Y = Positive when upward 

9 = Radians = Tan 9 

Ail forces are in poimds, all moments in inch-pounds, all deflections and dimensions in inches. 



Q 
< 



Refterence: Formula for Stress and Strain 
by R. J. Roark 

McGraw - Hill Book Company 1965 



LJ 
_J 

LJ 
X 



09100-74203 

USER INSTRUCTIONS 



ENTER PROGRAM (Starting address is 0 - 0) 
PRESS: GO TO (0) (0) [or ENd] 
PRESS: CONTINUE 
DISPLAY 




ENTER: 1 Z, a 
PRESS: CONTINUE 
DISPLAY 



Y, b 




ENTER: E Z, I 
PRESS: CONTINUE 
DISPLAY 



Y, W 




ENTER: x X 
PRESS: CONTINUE 
DISPLAY 




PRESS: CONTINUE 
DISPLAY 




PRESS: CONTINUE 



DISPLAY 



^AB 
^BC 



Z 
Y 
X 



PRESS: CONTINUE 
DISPLAY 



0 

"^MAX 

e 



Z 
Y 
X 



EXAMPLES 



LET 



1 
a 
b 
E 

I 
W 

X 



THEN R^ 



V 



AB 



BC 



M 



AB 



M 



BC 



M 



MAX 
^AB 
^BC 

'max 
e 



100 

60 

40 

10^ 

20 

1000 

24 

1000 
0 

-1000 
0 

16000 

- 60000 

-5.040 

-5.006 

-7.200 

.090 



A 
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PART NO. 09100-74203 



Dieprlay 



Storage 



0 , 0 i 



CLEAR 

STOP 
ACC 4" 
CLEAR X 
ROLL ^ 



STOP 

X^l ) 

r 

ROLL >^ 

X 

CLEAR JC 



ROLL ^ 



1 


) 


jr 








! 


3 




STOP 


/ 1 






3 




C 








CLEAR OC 


";"\ 






r 




CHG SIGN 




STOP 










"J f 


f 



CHG SIGN 



20 
01 
41 
60 
37 
31 
40 
17 
25 
02 
41 
23 
16 
31 
36 
37 
31 
35 
40 
14 
25 
03 
4 I 

zT 

I 3 

16 

27 

37 

27 

16 

32_ 

41 

I F 

27 

15 

34 

16 

32 

36 

27 

12 

36 



. DISPLAY 1 TIO INDICATE FIRST ENTRY, 



■ DISPLAY 2 



W 



ENTER La,b 



D INDICATE SECOND ENTRY 



ENTER E,I,W 











. _„ 





















s 








DISPLAY 3 ■ 


"0 INDICATE ' 


rHIRD ENTRY ■ 


X 


0 


0 




















^.^^ALGUtAT 
















i 


Vbc 


Vab 


R2 












! 






t 












J 

r 




E M^gy Mg^ 























L 



ENTER X 



DISPLAY 



I I 
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PART NO. 09100-74203 





3 C 


CLEAR X 


37 




! 




1 




ROLL ^ 


31 , 












STOP 


41 ' 


Mmax 




Mbc 




M 




1 




E 


I2~ 




"™ — 5 ' " — — 

1 










27 














1 




X 


36 














1 




X 


36 














1 






27 




— 










\ 




X 


36 




















03 














j 




X 


36 




















1 7 


j 








r 






X 


36 


















...„,_„..„^ - 


25 














4 




30 














1 
1 




— 


34 














>, 

1 
1 




e 


1 2 












< 








27 ; 














1 




X 


36 














j 




3 


1 3 












! < 






X 


36 


1 
















03 












i: 






X 


36 


















25 
















— 


34 














j 






1 4 


















X 


36 














1 






06 














1 5 


CHG SIGN 


32 


rAi ri II ATr 


^AB '^BC 














35 


















24 


1 

1 














1 3 • 










1 






1 5 










1 




— 


34 








1 




E 


12 


1 




1 






27 








1 




X 


36 








1 






03 


1 










CHG SIGN 


32 


1 










X 


36 


i 












25 = 


j j 


!3 


Lj 




xty 


30 . 


i 1 



I I 



DISPLAY 
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PART NO. 09100-74203 



7 



T 

8 



X 

X 
X 

+ 

e 

X 
X 

2 
X 

+ 



Z7 

__X_ 
6 

CHG SIGN 

CLEAR X 
ROLL ^ 

3 



STOP 

E 
X 
X 
X 

X 
X 

6^ 

CHG SIGN 



36 i 
27 I 
36 I 
36 I 
25] 
33 j 

1 2 
27 I 
36 I 
36 I 

02 j 
36 I 
2 5 I 
33 I 
14 
36 j 
06 j 
32 I 
35 
37 

s 

24 
I 3 
41 

I 

27 

! 36 ' 
' 03 
i 36 ! 
: \7 . 
I 36 
' 12 
I 27 
I 36 i 
, 36 

25 

34 

14 

36 

06 

32 

35 



Y 



BC 



Y 



AB 



DISPLAY 




Q 

a: 
< 

< 

CL 



U 
_l 

u 



Q 
< 

< 



LlI 

UJ 
X 



Q 
01 
< 

< 



LJ 



UJ 
X 



I 'ART NO. 
09100-74204 



cantiij:vi:r beam 

TKTAXriULAR LOAD 



This program computes the shear, moment, and deflection reactions for a cantilever beam with a triangular 
load as given by: 

CANTILEVER, TRIANGULAR LOAD 




Reaction R2 and 
Vertical Shear V 


Bending Moment M and 
Maximum Bending Moment 


Deflection y, maximum deflection 
and end slope 9 


Rg = + W 

V = -w 

r 


M = -1^(31x2 -x3) 
Max M = -|wi at B 


y = 1 ^(-x5 -1514x4-51x4 + 111^) 

11 Wl^ , . 
^^y = -60 EI 

..4,^12 atA 



NOTATION: 



w = Unit load (lb per linear in. ) 

W = Load (LB) 

M = Positive when clockwise 

V = Positive when upward 

Y = Positive when upward 
9 = Radians = Tan 9 



All forces are in pounds, all moments in inch-pounds, all deflections and dimensions in inches. 



Q 

cr 

< 



Reference: Formula for Stress and Strain 
by R. J. Roark 

McGraw-Hill Book Company 1965 



UJ 



UJ 
X 



09100-74204 

USER INSTRUCTIONS 



EXAMPLES 



ENTER PROGRAM (Starting Address is 0 - 0) 
PRESS: GO TO (0) (0) [or ENd] 
-PRESS: CONTINUE 
DISPLAY 




ENTER DATA: W - 
PRESS: CONTINUE 
DISPLAY 



Z, 1 



Y, X 



X 




ENTER DATA: E - 
PRESS: CONTINUE 
DISPLAY 



Y, I 




PRESS: CONTINUE 
DISPLAY 




PRESS: CONTINUE 
DISPLAY 




LET 



W 
1 

X 

E 
I 



1000 

100 

24 

10^ 

20 



^2 
V 



THEN R„ = 1000 

-422.4 
M = -5299.2 
-66666. 6 
-6.180 
-9. 167 
. 125 



M 



MAX 
Y 

'max 
e 



0 



2 



F3 
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PART NO. 09100-74204 



CLEAR 

_ jT 

STOP 
ACC + 
CLEAR X 
ROLL ^ 

STOP 



1 

20 " 
01 " 
4 I 



60 \ 
37 
31 
40 

25 



°2 DISPLAY 2 TO INDICATE 
41 1 T 



X 

d 

xty 
r 



A. 

2 



36 I 

i 

17 

30 

35 

40 \ 

16^ 

12 



X 

x_^ 

X 

CHG SIGN 

X 

CLEAR JC 



ROLL 
STOP 
E 



27 
02 
36 
15 
36 
27 
36 
25 
34 
12 
27 
36 
25 
35 
I 7 
32 
36 
I 7 
30 



37 
3_l_ 
41 
12 



DISPLAY 1 TO INDICATE FIRST ENTRY 



W 



ENTER W.I.X 



1 



SECOND ENTRYi 



0 



ENTER E , I 



p> CALCULAl 


-E R2,V 


s 
s 












— - 


















J 


















1 


















« 
s 


V 


R2 


0 r 




DISMAY 




PART NO. 
09 100- 7420. "i 



COORDINATES OF EQUALLY SPACED 
POINTS ON A CIRCLE 



LJ 
X 



Q 

< 

o 
< 



LU 

u 

X 



Q 
< 



UJ 

_l 

UJ 
X 



Q 
DC 
< 

< 
a. 



This program computes the coordinates (X., Y.) i = 1, • • • , n of equally spaced points on a circle of radius r. 
The user specifies the number of points n, and offset 9 , and coordinates of the center of the circle and Y^. 
See the figure below. 



{X2.Y2) 




UJ 

_l 

UJ 
X 



The equations used are: 



X. = r cos ( (i-1) — + ^ ) + X 
1 ^ ^ ' n ' o 



Y. = r sin ( (i-1) + 9) +Y 

1 ^ ^ ' n ' o 



i = 1, • • • , n 



Q 
< 



9 - offset angle in degrees 



l- 
UJ 

UJ 



09100-74205 

USER INSTRUCTIONS 



EXAMPLES 



ENTER PROGRAM (Starting address is 0 - 0) 

PRESS: GO TO (0) (0) [or ENd] 

PRESS: CONTINUE 
DISPLAY 




ENTER DATA: Y • 
o 

PRESS: CONTINUE 
DISPLAY 




ENTER DATA: 6 - 
PRESS: CONTINUE 
DISPLAY 



Z, n 



Y, r 




X 



2 in. 

1 in. 

2 in. 

n = 10 
B = 0° 



i 


X. 
1 


Y. 
1 


1 


3. 618033989 


2.175570505 


2 


2. 618033989 


2.902113033 


3 


1.381966011 


2.902113033 


4 


0.381966011 


2.175570505 


5 


0. 000000000 


1.000000000 


6 


0.381966011 


- 0. 175570505 


7 


1.381966011 


- .902113033 


8 


2.618033989 


- .902113033 


9 


3.618033989 


- . 175570505 


10 


4.000000000 


1.000000000 



PRESS CONTINUE AFTER i REACHES n TO 
RESTART ANOTHER SOLUTION 
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PART NO. 09100-74205 



-0 



I 



o 



in 

4 2 



o 
a: 



CLEAR 
1 

STOP 

X-X ) 

c 

CLEAR 

STOP 
ACC + 
ROLL ^ 
X^i ) 

6 

0 

ROLL ^ 

y^i ) 
3 

TO RECT 
ROLL 4^ 

X 

c 

ROLL ^ 
ROLL >^ 

9 



20 

oT 

23 
I I 
41 
2? 
I 7 
40 
16 
20 
02 
41 
60 
22 
23 
I 4 
03 
06 
00 
22 
35 
40 
I 3 
14 
3 
4 
I 4 

oT 

66 
27 
15 
36 
22 
36 
16 
33 
I 7 
22 
33 
22 
24 



DISPLAY 1, TO INDICATE^ FIRST ENTRY 

.AND^4Nffl|ALIZE GOUN|ER- 



X, 



0 I ENTtR Y^jj ,Xq 




DISPLAY 2 TO INDICATE SECOND ENTRY 




ENTER 0^,n,r 



!>--ST^RE-aTi 



J^. .... . . 






1 1 


1. 


S 1 s 









" CALCULAT 


E Xj AND Yj 








1 
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PART NO. 09100-74205 



Dispil 



3 ' ^ ' ROLL ^ 



STOP 



41 



1 



ROLL ^ 



L 



9 
3 
t 

T 



t3 



5 j 



▼ 

4 



ROLL ^ 

IF a:>j 

~0~ 

ROLL 4^ 
GOTO( )( ) 
1 



END 



22j 



0 
22 
33 
40 



I 3 
27 
14 
33 



INCREMENT i 



12 : 

22 
5 3 
00 

"oo ' 

-"=3:^ 

31 

44 

01 
14 

"46 



GAtGULATE 



Y 



BRANCH FOR NEW DATA 



j DISPLAY 



ENTRY WHEN n>N 





.. J_ ... 


POSITION 
NEXf^COC 


^i + l AND BrAnCH for 
)RdTnATE^ ~CA^CULAf ION^ 








j „ — 

1 

i 

j 




1 

., L. 




j 




1 
1 



r « 



r 



s t 

1 i 



September 1, 1969 



9100B FLUID MECHANICS PROGRAM LISTING 



75001 - CHE ZY- MANNING EQUATION 

Finds channel flow when channel is circular pipe and flowing full. 



75003 - RECTANGULAR WEIR 

Calculates the rate of fluid flow over a rectangular weir. 



75004 - WATER FLOW IN PIPE 

Calculates the loss factor (f) and the head loss for a pipe of specified dimensions with a 
known flow rate. 



1 





UJ 



PART NO. 
09100-75001 



CHEZY - MANNING EQUATION 



UJ 
X 

PI This program calculates the flow (Q) of an open channel. 

The basic equation for open channel flow with any designated flow depth in a container (pipe, etc. ) with any cross- 
sectional area is the Chezy -Manning equation given below: 

Q 

2 ^ 1.49 AR^/^S^/^ ^ ^ • 3/ 

f: Q = where Q = Flow in ft. /sec. 

^ A = Cross -sectional area of container in ft. 



y!_ R = Hydraulic radius in ft. 

Lj S = Slope of. pipe in feet/ft. 

^ n = Roughness coefficient (dimensionless) 

UJ 
X 

pq This program is specialized for open-channel flow in a circular pipe with flow depth designated at full. 

Situation: 

2 ( ^ 1 FLOW 

O V !/ / DEPTH 

•~ 2 

mu T-. u J T J- area of flow cross -section tt r r r) . , 

^ Then R = hydralic radius = wetted perimeter = 2W¥~ = 2" = "T" = diameter of contamer) 

UJ 
X 

pq substituting in equation (1) gives: 




^^2 ^ 2/3 
Q = ,49(^)(f) ^ 



< 

< _ (1.49) (W4) . 46441 D«/^S^/^ (equation to be used) 



(4) 



^ Variables to be entered for flow calculation are D, S^ n. 

UJ 

X 

Q Reference: Elementary Fluid Mechanics, 3rd. edition, Feb., 1959. 

by John K. Vennard 

Q John Wiley a Sons, Inc. 

< 



I- 
UJ 

_i 

UJ 
X 



09100-75001 

USER INSTRUCTIONS 



EXAMPLE 



ENTER PROGRAM (Starting Address 0-0) 
PRESS: GOTO (0) (0) [or END ] 
^ PRESS: CONTINUE 
DISPLAY 




ENTER DATA: n-^Z, D -^Y, S -♦X 

PRESS: CONTINUE 
DISPLAY 




Find QpuLL ^ circular pipe of diameter 18 in. 
if the slope is . 001 feet/ft. and n = . 015 



Input: 



n = .015 



D=1.5 = L5') 

s = .ooi ft. /ft. 

3 

Answer: Q = 2.8866 ft. /sec. 



PART NO. 09100 -7500,1 



> 



3 




< 
< 




Q 
< 

u 
< 

CL 



LiJ 
X 




Q 

< 

(J 
< 

CL 



I- 
i±i 

UJ 
X 




PART NO. 
09100-75003 



RECTANGULAR WEIR 



This program calculates the rate of fluid flow over a rectangular weir. 



The following equations are used: 



3/2 3/2 



Q = 2/3 cbV^ - (^) ] 

3 

where: Q = rate of fluid flow (ft. /sec.) 
b - length of weir crest (ft.) 
H = head on weir (ft.) 

V = average velocity of fluid approach (ft. /sec.) 
c - correction factor 

The coefficient (c ) includes the effects of various phenomena, such as viscosity, turbulence, surface 
tension, non -uniform velocity, etc. 

The program includes the ability to enter c as data, or to calculate c using Rehbock's equation, 
given below: 

c = .605 + .08 H/p +- ^ 



30 5H 

where: p = the weir height 
Diagram of a standard rectangular weir: 




Reference: Elementary Fluid Mechanics - 3rd Edition 
John K. Vennard 

John Wiley & Sons, Inc. 



09100-75003 



USER INSTRUCTIONS 



EXAMPLES 



ENTER PROGRAM: (Starting Address is ( 0 - 0 ) 
PRESS: GO TO (0) (0)[or ENd] 



• PRESS: CONTINUE 
DISPLAY 




ENTER DATA: V- 
PRESS: CONTINUE 
DISPLAY 



Z, h-m-Y, H 



X 




ENTER DATA: p-»-X 
PRESS: SET FLAG 
PRESS: CONTINUE 
DISPLAY 



ENTER DATA: c-*-X 
PRESS: CONTINUE 

DISPLAY 




(2 indicates that c 
was calculated ) 

' — TO RESET PROBLEM: 



(1 indicates that c 
was entered as data) 



(A) 



Data: H = 1 ft. 

V = 1 ft. /sec. 

b = 3 ft. 

c = .6 

(c entered as data ) 



Solution: 
(B) 



Q = 9.8321 ft. "^/sec. 



Data: H = 2 ft. 

V = 1ft. /sec. 

b = 6 ft. 

p = 6.85 ft. 

(c to be calculated ) 



Solution: Q = 57. 8007 ft. /sec. 



U 



c , 



r. 

* I 
[•I 



Q 
< 

5>' 



0 



4 



U 1 



CLEAR 
STOP 



ACC + 



20 

41 
60' 
23 
16 
2 5* 

ROLL ^ I 3 I 



X 

3 
2 

T 

X 



X 

^3" 



E 



CLEAR X 
ROLL ^ 
ACC + 



36 

02 
27 
03 
02 
2 I 

01 : 

07 \ 

36 

— I 

25 

35 I 

■^6 : 

2 7 ' 
02^^^ 

36 ■ 
03 
35 J 
I 2^ 

40 

37 



a 



, 60 
[27 

. Te 

I 5 

I 

' 36 

i 25 

I _ 

30 

^34 
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PART NO 09100- 7500 3 







H 


b 1 V 






— - 


p> STORE b 


AND H 











































ENTER DATA 




) - 



PAGE 2 



PART NO 09100-75003 
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PART NO 09100 - 75003 




V 



CALCUL ATE Q FOR qATA i 

^(^yp^Y ~ OF P T^C""CAtcFLATED r r 



r 



I or2 



i DISPLAY ; lor|2 INDICATES 
jWHEjrHERl C jwAS ENTERED 
I OR CALCUrAT^D 



! S 




1x1 
X 



Q 

< 
< 



UJ 

_i 

LlI 
X 



Q 
Od 
< 



PART NO. 
09100-75004 



WATER FLOW IN PIPE 



Given the roughness coefficient (€) , the diameter (d) of a pipe in inches, the rate of flow (Q) of water in gal. /min. 
into the pipe, this program calculates the friction factor (f) and the head loss (hj) in feet. 



The equations used are the Colebrook equation 

1 / 2.51 



12 € 



3.7 



yr -e 

used to calculate f , and the Darcy-Weisback equation 

,2 



where L = length of pipe in feet 
and V = velocity in ft. /sec. 



R^ is Reynolds number where R^ 



Vd 
121/ 



77 Q 



7207rz/d 



-5 2 

For water, z/ = 1.40 x 10 ft. /sec. 



Therefore, R 



77 X 10- 
1008 TT 



Q. 
d 



LU 



U 
X 



Q 

a: 
< 

< 

Q. 



LiJ 



LiJ 
X 



Q 
< 



UJ 

LjJ 
X 



Reference: Marks Standard Handbook for Mechanical Engineers 

Seventh Edition 
McGraw-Hill Book Company 
1967 



09100-75004 

USER INSTRUCTIONS 



EXAMPLE 



ENTER PROGRAM (Starting Address is 0 - 0) 
PRESS: GO TO (0) (0) [ or ENd] 
PRESS: CONTINUE 
DISPLAY 




ENTER DATA: Roughness Coefficient 
Diameter — 

PRESS: CONTINUE 

DISPLAY 




ENTER DATA: Length 
PRESS: CONTINUE 
DISPLAY 



.-Y, Rate of Flow 




PRESS: CONTINUE 
DISPLAY 




Data: 



d = 


10 in. 


€ = 


.00085 


Q = 


2000 gpm. 


L = 


500 ft. 


Results: 




f = 


.02035 




12.65377 ft. 



To enter new data 
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PART NO 09100-75004 



0 ' 



2, . 



1 



Ui 





1 ^ 


CLEAR 


' 20 , 




, 03 ; 




, 23 




, 13 


1 


01 


STOP 


41 




, 35^ 



O 

CLEAR 

STOP 
ACQ + 

7 

ENTER EXP 

TT 



2" " 



23 
14 

40 

16 
20 
02 
41 
60 
27 

07 
07 
26 
06 

36 
01 
00 
00 
10 
35 

56 
35 

14 

35 

40 
17 
02" 

21 
05 
01 
27 

17 
35 

I 3 
36 

16 



STORE^ 3, CLEAR -AND DISPLAY 1 TO 
INDICATE FIRST ENTRY 




"CLEAR- 



CALCUI4ATE AND STORE 
RELAttVE roUG^^^^^^^ 



0 



ENTER 
COEFFICI 



TJTAMEtER 



AND — DI-SPLAYt 2 T0 INDICATE 



Q 



0 



STORE! Q AND L 



R OLlJG,fctNEJ^S_ 
ENI ANI 



ENTER 



SEGON D- -^NTRY - 
LENGTH Ind" 



9ALCULAT-€ R^- 



CALCULATE A =2 



LOG 



12 



"23r 



Rp -/T 3.7 
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PART NO 09100-75004 



1 

X 

3 

zl 

log X 





ENTER EXP 

CHG SIGN 
IF x>y 

'3 

t" 

GOTO( )( ) 

T 
t 

X 



27 
01 
02 

36 
03 
2 I 
07 
35 
25 
33 
25 
75 
27 
55 

02 

36 
13 
34 
02 
35 
26 
03 
32 
53 
05 
05 

1 3 
33 

40 
3 
4 4 
02 
04 
0 

2 7 
3 

35 
25 
2 7 
36 
40 
I 3 








t"0 



.-3... 



<--TObERANCE 



eAteUbATK)N- 




AND STORE AS NEW ESTIM/^TE 



-J! 



■li 



■y: 



6 . 



ROLL ^ 
STOP 



d 
1 

ENTER EXP 



j 'J 

7i ' 



8 
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9100B LIFE SCIENCES PROGRAM LISTING 



75201 - RADIOACTIVE DECAY 

Calculates the mass loss between any two times given the half-life, initial mass and present 
mass; displays the decay curve; or calculates the age of the mass based upon the present mass. 



Q 
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LU 
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UJ 
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Q 
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Q- 
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< 
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PART NO. 
09100-75201 



RADIOACTIVE DECAY 



Given a number of activity readings at various times from a Geiger -Mueller counter or similar radioactivity - 

measuring device, this program calculates the decay constant (X ) , the half -life ( T ) , and, if desired, a set 

of M/M^ values versus time. is the original mass of the sample and M is the mass remaining after a time t. 



The equation for activity is: 

1) A: 



dt ^^o 



Taking the natural logarithm of both sides of equation (1), the following equation results. 

2) lnA = lnXN - Xt 

' o 

Since equation (2) is a linear function of t, a linear regression (method of least squares) is performed on the 
set of In A and t to obtain the slope (- X) of the In A versus t line. 

The following equation is used to solve for X(see Program 09100-70811). 

n n n ' 

^'7-, (In A.) (t.) - ( t. ) ( In A. ) 

. 1=1 ^ v^v ^ 1=1 1 ' u=l 1 - 



n-Z (t/ -( Zt)' 
1=1 ^ ^ 



Given X , the half -life T is calculated from the equation: 
T = ln^^ 

The fraction of mass remaining at time t is: 



M 
M 



= e 



Xt 



The fraction of mass at any time t is easily obtained by entering the desired t in the Y register at the correct 
display during program execution (see "User Instructions"). M/M is calculated for the value of time appearing 
in the Y register before incrementing that time by the amount entered in the X register for the next calculation. 
A decay curve (M/M^ versus t) may also be obtained for any initial time and any increment (At) . 



LxJ 
_l 

UJ 
X 




09100-75201 



USER INSTRUCTIONS 



USER INSTRUCTIONS (con't) 



ENTER PROGRAM (Starting Address is 0 - 0) 
PRESS: GO TO (0) (0) [ or ENd] 
PRESS: CONTINUE 
-DISPLAY 




ENTER DATA: t. ^ 
1 

PRESS: CONTINUE 



■Y, A, 



X 




PRESS: SET FLAG 
PRESS: CONTINUE 
DISPLAY 





PRESS: CONTINUE 
DISPLAY 




RENTER DATA: t( initial) Y, At ~*»X 
\y£S 



iiii 



PRESS: CONTINUE-^ 
DISPLAY: 




PRESS: CONTINUE 
DISPLAY 



YES 





To reset problem: 



09100-75201 

EXAMPLES 



A) Calculate X , r and the value of M/Mq at t = t 
for following set of data. (M/Mq should be 
equal to . 5 at t =T) 

Data: 



i 


t. (minutes) 


A^(counts/ minute) 


1 


.1 


5.6 X lo'^ 


2 


.3 


5.01 X lo'^ 


3 


.5 


4.44 X lo'^ 


4 


1 


3.29 X lo'^ 


5 


10 


1.48 X 10^ 



Solution: r = 1. 15491 
X = .60018 
M/M^ (for t = 1. 15491) = . 50000 

B) Calculate X , T and a set of M/M^ values for 
t (initial) = 0,At = . 2, using the following 
data. 

Data: 



i 


t^ (minutes) 


A| (counts/min.) 


1 


1 


4.01 X 10^ 


2 


1. 5 


3.80 X 10^ 


3 


4 


2.61 X 10^ 


4 


4.5 


2. 11 X 10^ 


Solution: 


T = .75422 
X = .91903 




At 


t 


m/m 

0 


.2 


0 


1.00000 


.2 


.2 


.83210 


.2 


.4 


.69239 


.2 


.6 


.57613 


.2 


.8 


.47940 


.2 


1.0 


.39891 
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i 
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STOP 
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9100B CHEMICAL PROGRAM LISTING 



75502 - ELEMENTAL PERCENTAGE AND MOLECULAR WEIGHT - 6 ELEMENT 

Calculates percentages and molecular weight of compounds containing 6 elements or less. 

Q 

2 75503 - CHN ANALYSIS [K VALUES] 

O Calculates K values given C, H and N, blank values, and percentages for a known standard. 

< 
Q- 

\Z 75504 - CHN PERCENTAGES 

LiJ Given C, H, and N values and using previously calculated K values and known blank values, 

^ calculates C, H and N percentages. 

UJ 
I 

^ 75505 - MOLECULAR WEIGHT BY VPO 

S Calculates molecular weight for an unknown based on a series of vapor pressure osmometer (VPO) 

readings at various dilutions by extrapolating least squares curve fit to infinite dilution. 

Q 

a: 

5 75506 - MEMBRANE OSMOMETER 

O Determines the number -average molecular weight by extrapolating a least squares curve fit to 

^ infinite dilution. 

h- 
\- 
LU 

^ 

UJ 
X 



Q 
< 

< 



I- 
U 

LlI 





UJ 
X 

@ 



PART NO. 
09100-75502 



ELEMENTAL PERCENTAGE AND MOLECULAR WEIGHT 
•6 ELEMENT 



This program calculates relative elemental percentages of up to and including 6 elements. The atomic weight 
of the elements are programmed into the calculator. The total molecular weight of the compound is also cal- 
culated. 



Q 

Del 
< 

< 
0. 



UJ 
X 



Q 
< 

< 




Q 
< 

< 
Q. 



UJ 
-J 




09100-75502 



USER INSTRUCTIONS 



USER INSTRUCTIONS con't 



ENTER PROGRAM (Starting Address is 0 - 0) 
PRESS: GO TO (0) (4) 
SET: 



PROGRAM 



Enter program steps for atomic weight of Nj^ ; 
maximvim of 6 steps is allowed. 



SET: 



RUN 



N2 



PRESS: GO TO (1) (4) 
SET: 



PROGRAM 



Enter program steps for atomic weight of N2 
as before. 



SET: 



RUN 



' PRESS: GO TO (2) (4) 
SET: 



N3i 



PROGRAM 



Enter atomic weight of Ng as before. 
SET: 



RUN 



N4 



PRESS: GO TO (3) (4) 
SET: 



PROGRAM 



Enter atomic weight of N^ as before, 
SET: 



RUN 



N5 



PRESS: GO TO (4) (4) 
SET: 



PROGRAM 



Enter atomic weight of Ng as before. 
SET: 



RUN 



PRESS: GO TO (5) (4) 
SET: 



PROGRAM 



Enter atomic weight of Ng as before. 
SET: 



RUN 



PRESS: GO TO (0) (0) [ or End 
►PRESS: CONTINUE 
DISPLAY 




(i indicates number of element to 
be entered) 

ENTER DATA: N. -►X (Nj = the number of 
atoms of each element.) 




PRESS: CONTINUE 
DISPLAY 




PRESS: CONTINUE 
DISPLAY 




PRESS: CONTINUE 




Note: To reset problem with different ele- 
ments, repeat user instructions; otherwise, 
enter new number of atoms of each element 
when initial display appears after completion 
of last problem. 



09100-75502 

EXAMPLE 



Elements: 


N^(C) 


NgCH) 


NgCS) 


N4(N) 




Ng(Si) 


At. Wt.: 


12.01 


1.008 


32.07 


14.01 


16.00 


28.09 


# of Atoms 


6 


2 


8 


1 


2 


3 



Solution : 

% C = 15.63% 
% H = . 44% 
% S = 55.66% 
%N= 3.04% 
%0= 6.94% 
%Si = 18.28% 



Molecular Weight = 460.92 
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PART NO. 09100-75502 
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20 i 

t 


-1 
1 


U 1 1 


STOP 
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CONTINUE 47 

X 36 



ATOMIC WEIGHT OF N 



Acc 4" 60 



y^n 40 J 



14 

! 25| 

I . 

03 I 




^ORE- 




STOP I 41 

^ 1 2J ^ 



CONTINUE i 47 
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AREA FOR INSERTING 



CONTINUE I 4 7 t 

X T 36~" 

ACC + t 60 I 

y^k ) 40 ' 

r i 16 



ATOMIC 




0 



WEIGHT OF N 



ENTER N 



3 



1 I 



— ! 



T — ! 
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PART NO. 09100-75502 



< 



3 



^ ' 25 

4 ^04 

STOP ! 41 

t I 27 

CONTINUE I 47 



Storage 



^ 1 a 



0 



ENT 

I- 



ER I\l4 



CONTINUE I 47 

X I 36 

ACC + 

y^i ) 
5 




STOP 



60 
40 

17 

"I 

05 
41 
27 



'^^^^ I^J] INSERTING I 
ATOMIC VyEIGHT OP" N4 
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STORE X4 



N, 



0 



0 I^ENT^R N. 



CONTINUE I 47 1 



l\ AREA FOR INSERTING 
*^ ATOMIC "WeTGHT of" N 



5 0\ 



|>1 



CONTINUE 

X 

ACC -|- 

7 ^^'^ 

STOP 
CONTINUE 



47_ 

36" 



i 




60 I 
40 
15 I 
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06 , 
41 
27 
47T 
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0 
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ENTER 
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1 



PART NO. 09100-75502 
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CALCULATE 70N4 




CALCULAtIe 7oN, 



CLEAR X 


37 






E 


12 




27 


\ STOP 


. 41 




14 




; 27 


[ ^ 


01 


STOP 


. 41 


\ yt}}^^ 


I 24 




= 16 
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02 


STOP 


41 


' yZ^^ 
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STOP 
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PART NO. 
09100-75503 



CHN ANALYSIS 



K VALUES 



This program calculates the K values (K^, Kjj,and K^) , for compounds containing carbon (C) , hydrogen (H) , 

and nitrogen (N) , from blank values (B^, B^, and B^^) , percentages of C, H, and N from a known standard 

(%C^, %H_, and %N ) , and measured quantities of C, H, and N of the known standard (C , H .and N ). 
s s s S. S. ' s. 

11 1 

Two sets of measurements of C-H-N quantities of the standard are normally taken, although one set of measure- 
ments is sufficient for operation of the program. 

The following equations are used: 

%C 

c 



C 77 



^s-^C 



%H 



K. 



H — 



K 



N 



Hs-^H 



%N 



N - B^^ 
s N 



where M M = C, H, or N is the average of M and M 

s L ' ' J 1 ®2 



If only one set of C-H-N quantities of the standard are used, then: 

M, 



[ M = C, H, or N j - 
%C 



, etc. 



Lxl 

Ixl 
X 



Q 
OH 
< 



IxJ 
_J 

Ld 
X 



09100-75503 

USER INSTRUCTIONS 



USER INSTRUCTIONS (con't) 



ENTER PROGRAM (Starting Address is 0 - 0) 
PRESS: GO TO (3) (1) 
SET: 



PROGRAM 



ENTER: Program steps for the constant - %N 



(five spaces available) 



SET: 



RUN 



PRESS: GO TO (4) (3) 



SET: 



PROGRAM 



ENTER: Program steps for the constant - %C 



(five spaces available) . 



SET: 



RUN 



PRESS: GO TO (5) (3) 
SET: 



PROGRAM 



ENTER: Program steps for the constant - %H 



(five spaces available) 



SET: 



IRUN 



PRESS: GO TO (0) (0) [ 
PRESS: CONTINUE 
DISPLAY 



or END 



Z 
Y 
X 



ENTER DATA: B^^^ — ^-Z, B 

PRESS: CONTINUE 
DISPLAY 



H 



Y, B^— ^ X 




ENTER DATA: N ^ Z , H — 

^1 ®1 

PRESS: CONTINUE 

DISPLAY 



Y, C, 



X 




ENTER DATA: N 



Z, H 



Y, C. 



X 



PRESS: CONTINUE 
DISPLAY 




Note: If only one set of standard values is to be 
used, N , H , and C must be set to 

^2 ^2 ®2 
zero. Do not press "clear" at any time 
during program operation. 



To reset program for a different standard, 
repeat user instructions. 



EXAMPLES 



(A) Only 1 set of standard values is available 

Given: %C = 51.79, %H = 5.07, %N = 20.14 

S ' S ' s 



^C = 1-^' % 



30 , Bj^ = 1.0 



C = 125.0, H = 119. 5,N - 88.0 
^1 ®1 ^1 



Note: Since only 1 set of standards is avail- 
able, the 2nd set of standards must 
be set to zero at the appropriate data 
input of the program. Do not press 
"CLEAR" to zero the 2nd set of 
standards. 

Solution: = . 420, = . 057 , K^^ - .231 



(B) Given: %C =51.79,%H 



5.07, %N = 20.14 
' s 



B, 



1.6, B 



H 



30 



C =121.0,H^ 
«1 ^1 

C -120. 5. H„ 



Solution: = .435, Kjj 



121. 5, N =79.5 



115. 5,N =79.5 
' «2 



057, = .257 
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CLEAR 



ROLL \^ 
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PART NO. 
09100-75504 



CHN PEIICENTAGKS 



Percentages of carbon (C) , hydrogen (H) , and nitrogen (N) in an unknown substance are calculated from mea- 
sured quantities of C, H, and N, blank values (B^, B^, and B^^) , and K values (K^, K^, K^) which may be 

calculated with the K value program (09100-75503) . K and B values must be stored prior to program operation 
either manually by the operator, or automatically by the use of the K value program. 



The following equations are used: 



% = - B^) 



or, in general: 



^M^^l 



% Mj[m = C, H, or n] 
% M2[m = C, H, or n] - Kj^ {M^ - 

The percentage evaluation is considered successful if and Mg differ by . 3% or less. 

If only one set of CHN measurements are available, then Cg, H^, and may be made any value at the 
corresponding data input. In this case only % C^, % H^, and % are useful information; disregard answers for 
% Cg, % Hg, and% Ng. 



LiJ 
-J 

ill 
X 



Q 

< 

u 
< 
a. 



LJ 

UJ 
X 



Q 

a: 
< 

U 



UJ 
X 



09100-75504 



USER INSTRUCTIONS 



USER INSTRUCTIONS (con't) 



ENTER PROGRAM[(Starting Address is 0 - 0)] 



YES. 




X 



PRESS: 

f 

y - 

e 

y - 

.d 

ENTER DATA: B 



N 



Z, B 



H 



Y, B, 



PRESS:^ 



X — 
a 

y - 

b 

rI 

y - 

c 



-PRESS: GO TO (0) (0) [or ENd] 



PRESS: CONTINUE 
DISPLAY 




ENTER DATA: N^ Z , Y, C ^ X 

PRESS: CONTINUE 

DISPLAY 




ENTER DATA: N, 



Z , ^ Y, C, 



•X 



Note: If only one C-H-N set is available, Ng, 
Hg, and Cg may be set to zero or any other 

value--Simply disregard the solutions for % C^, 
% Hg, and% N2. 

PRESS: CONTINUE 
DISPLAY 




PRESS: CONTINUE 
DISPLAY 




PRESS: CONTINUE 
DISPLAY 




-To reset problem for different C, H, and N 
samples. 



To reset program for different sets of K and B, 
repeat user instructions. 



09100-75504 

EXAMPLES 



(A) 

Example (A) of the K-value program (09100- 
75503) has previously been run, and the K 
and B values have already been stored. 

Data: = 118. 3, = 75. 0, = 49. 1 
= 128.6, Hg = 69.7, = 53.4 

Solution: = 48.98, = 53.30 

%B.^ = 2.55, % = 2.25 
%N^= 11.13, % = 12.13 



(B) 



The K-value program (09100-75503) has not 
been run; K and B values must therefore be 
stored manually, (see "user instructions"). 

Data: B^ = 2.1, B„ = 28, B^,, = 3 
C ' H N 

= . 520, Kjj = . 102, - . 235 
= 132.1, = 92.0, = 57.9 

Solution: %C^ = 67.6 
=6.53 
= 12.90 



Note: Disregard answers for % Cg, "^Hg, 
and since a second set of C-H-N was not 
available . 
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CLEAR X 
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_STOP 
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ROLL >^ 
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7 

CLEAR X 

_ .^...^ 

STOP 
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6 
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X 
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fl 
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PART NO 09100 7 5504 



H 



N, 



ENTER 1st SET pF„C,H,aN„ 



STORE 



C,,H, AND N, 



--h- 



H 



N. 



ENTER 2ncl SETJDF_C^H, a N 



1 3^ 

34 . 

15 

36 

24 

06 

1 3 ; 

34 

I 5 
36 
24 



CAL C Ul j ATE AN D STORE % . AND % JH , 
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PART NO 09100- 75504 



▼ 

4 



7 

r 



ROLL \^ 

6 

yt^ ) 

7 

^> 

STOP 

8 

STOP 

"""^^^ 



3 

END 



34 

I 7 

36 
16 
30 
31 ' 
34 

1 7 

36 

24"" 
06 
25 
24 
07 
27 

01 
4 I 

2 4' 

1 0 
27 
24 

I I ^ 
02 
41 

2 4' 
06 

27 
24 
07 
03 
46 



CALCULATE AND STORE % N, AND % N^ 




RECALL^ #ja^P0^T4 C^^^ 

i^m^^^^h^^^oe nisppY 



7oC 



%c. 



_R£CALL AND POSITION % _ % H, 
FOR DISPLAY. 



% H, 



RECALL AND POSIT 

,__pQ„p^ g,,J..|g^,J^.^^^.. 



.^.^ % N, 



%N, 



7oN. 




Q- 



IjJ 
_J 

liJ 
X 



^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
MOLECULAR WEIGHT BY VPO 



^ Data obtained from the vapor pressure osmometer (VPO) is used to calculate either the depression constant (K^) 
for a substance with standard molecular weight, or the molecular weight (MW) of an unknown substance. In 

S normal application, VPO readings (V) for various concentrations (C) of a substance with known molecular weight 
are taken, and K^j is determined. The molecular weight of an unknown substance may then be determined from 
VPO readings obtained from various concentrations of the unknown, and from the previously determined K^. 

Q 

QC The same procedure is used to calculate either Kd or MW. In both cases, a linear regression is performed with 
^ V/C and C as the dependent and independent variables respectively. The regression is similar to that of the 
Q regression program (09100-70803) for equations of the form Y = mx + b; in this case the defining equation is 
< V/C = mc + b, where m is the slope of the V/C versus C curve. The V/C versus C curve is then extrapolated 
to infinite dilution (C = 0) to obtain the Y = V/C intercept (b) ; i.e. lim V/C = b . 

c-^0 



|jj K , is then calculated using the equation: 

LjJ ^d ~ ^^^^) where MW, in this case, is the molecular weight 

^ of a known substance. 

Likewise, MW may be calculated by the equation: 

^d 

Q MW = -T— where now MW is the molecular weight (of an unknown substance) 



which is to be determined. 

A correlation coefficient (r) is also calculated, r is a measure of reproducibility and also how ideal the system 
is. 



Q 
< 

< 
Q- 



UJ 



LjJ 
X 




09100-75505 

USER INSTRUCTIONS 



EXAMPLES 



ENTER PROGRAM (Starting Address is 0 - 0) 
PRESS: GO TO (0) (0) [ or ENd] 

.PRESS: CONTINUE 

•DISPLAY 




ENTER DATA: V.- 



'Y, C. 



PRESS: CONTINUE 




PRESS: SET FLAG 
PRESS: CONTINUE 
DISPLAY 




(A) Calculate for the following standard 

molecular weight, and set of VPO and C 
readings. 

Data: MW = 1500 



i 


V. 
1 


C. 
1 


1 


500 


34 


2 


330 


24 


3 


205 


16 


4 


125 


8 



Solution: m = -.017 
r = -. 156 

21858.377 



(B) Calculate MW for the following data: 



Data: = 337. 576 



i 


Vi 


C. 

I 


1 


56.10 


121.95 


2 


23.85 


57.32 


3 


11.45 


27.85 


4 


5.68 


13.72 



Solution: m= .0005 
r = .9419 
MW= 843.5813 




Wish to 
Calculate K 



ENTER DATA: 
MW— »-X 

PRESS: SET FLAG 
PRESS: CONTINUE 
DISPLAY 



m 


Z 




Y 


^d — 


X 



ENTER DATA: K,- 
d 

PRESS: CONTINUE 
DISPLAY 



X 



m — 


Z 


r — 


Y 


MW 


X 



-To reset problem 
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V 



a I n 



0 



CLEAR 


20 


JC->( ) 


23 




1 7 


X^l ) 


23 r 


C 


> 16 < 




'73"f 


„i7._ 


• I4_^ 



CLEAR pi SPL AY AND S TORAGE REGISTERS. 




RAGE 2^ 

Displat 



PART NO 09100-75505 



t 27 

ROLL ^ j 22 

GO TO ( ) ( ) 1 4 4 

^ i 00 



E 

xty 
f 



! 10, 

I 

I 27 
01 
34 
I 2' 
30 



-^-NCffTO^ENTER NEXT SET OF 



X€CREM£NJ^ COUNTER 



DATA 



35 

24 

1 5 




CALCULjATE Y 



T J 35_ 



eAteULATE X 





23 




1 3 




40 




•2. 




36' 


E 


1 2 


X 


36 


d 


1 7 


xty 


30 








STORE 



X AND n 



CALCULATE Z(X-X)^ 



yt^) r24~ 


^"F^''"^ 


16 


f 


15 




27 


X 


36 


<^ 


1 3 


X 


36 ; 




25 




34 ; 




24~ 




14 




27 ' 


RCL 


61 


"^x 


"36 : " 


a 


"13 r 

s 


X 


36 


4^ 


25 \ 



_ i 
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Q 




MEMDltAVE OSMOMETER 



PART NO. 
09100-75506 



The membrane osmometer is used to obtain data for calculation of either the constant RT (R = gas constant, 
T = absolute temperature) , or the number average molecular weight (M^). In normal application, osmotic 
pressure (P) measurements are taken for various concentrations (C) of a substance with known M^, and RT 
is subsequently calculated. The number average molecular weight of an unknown substance may then be deter - 
mined from membrane osmometer measurements of P obtained from various concentrations of the unknown, 
and from the previously determined RT. 

The same procedure is used to calculate either RT or M . In both cases, a linear regression is performed 

1/2 ^ 
with (P/C) and C as the dependent and independent variables respectively. The regression is similar to 

that of the regression program (09100-70803) for equations of the form y = mx + b; in this case the defining 

RT 1 /2 

equation is P/C = mc + — , where m is the slope of the (P/C) versus C curve. The (P/C) versus C 

M 

n 

curve is then extrapolated to infinite dilution (c=0) to obtain the Y = P/C intercept (b) , i. e. lim P/C = b. 
1/2 

(P/C) rather than P/C is used in the regression to avoid extrapolation error when the P/C and C data results 

in a P/C versus C plot with pronounced curvature. In many cases where the first power plot has pronounced 

curvature, the square -root plot will produce a straight line suitable for extrapolation. The desired intercept 

1/2 

(b) of the P/C versus C curve is then the square of the (P/C) versus C intercept. 

RT is calculated using the equations: 

RT = M (b) where M is a known number average molecular 

n n 

weight. 

Likewise, maybe calculated by the equation: 

RT 

- where now is the number average molecular weight 

(of an unknown substance) which is to be determine. 



A correlation coefficient (r) is also calculated, r is a measure of reproducibility and also how ideal the 
system is. 



09100-75506 



USER INSTRUCTION 



EXAMPLES 



ENTER PROGRAM (Starting Address is 0 - 0) 
PRESS: END 
PRESS: CONTINUE 
DISPLAY 




ENTER DATA: 



PRESS: CONTINUE 




YES 



PRESS: SET FLAG 
PRESS: CONTINUE 
DISPLAY 




YES 




Wish to calculate RT 



ENTER DATA: 
RT — •'X 

PRESS: SET FLAG 

PRESS: CONTINUE 

DISPLAY 



ENTER DATA: M 



PRESS: CONTINUE 



X 



DISPLAY 




To reset problem: 



(A) Determine RT for a substance with known 
number average molecular weight (Mj usin^ 
the following data: 



Data: 



M =1.2x10' 

n 



i 


p. 
1 




1 


.58 


2 


2 


1.75 


5 


3 


4.45 


10 


4 


12.64 


20 



Solution: m = .014 
r = .998 
RT = 32,185.017 



(B) Calculate M for an unknown substance usine 
n 



the following data: 



Data: RT = 3.65 x 10 



i 


P. 

1 — 


C. 
1 — 


1 


.67 


2.2 


2 


1.50 


4.3 


3 


3.72 


8.4 


4 


10.41 


18.6 



Solution: m = .012 

_r = . 977 

M = 124,403. 599 
n 
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; 43 

I 

' 03 

10 
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|- - — I 



CLEAR Display and storage registers. 




INITIAL 




ZE COUNTER 



0 



EN 



ER PATA 



BRANCH IF ALL DATA HAS BEEN tNTE^ED_| 











]> CALCUL 
















S> CALCUL 


.ATE 5: ^ 



















f — t-- 



CALCULATE IX Y 



INCREMENT COUNTER 



1 
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1^ 


1 27 


X 


j 36 


3 


jl 3 


X 







25 




"34 




24 


G 


14. 




27 



RCL 



36" 



BRANCH TO ENTER NEXT SET Or DATA 



DECREiyiENT AND STORE COUNTER 



CALCULATE Y 



Q^l^gy j£ ^^.^^ S T 0 R E X 



CALCULATE AND SJORE liX-X). 



> CALCUL|ATE AND- 


'ORE^XTY-Y f. 








j 




1 ! i 
1 

„ „ . ..L. 



r 
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PART N0_09I00- 75506 



' 8 



B 
X 

C 

t 



fx 



3 
C 

ROLL ^ 

E 

yi""""" 
xty 

CLEAR 

xty 

STOP 

c 

IF FLAG 

d ^ 

X 

GOTOriil 



1 3 ' 
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16 . 
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2 5 ■ 
76 , 

35 

14 ' 
76 , 

"35 r 

40 
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> — CALCUL 
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16 
22 
30 ' 
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40 

I 4_^ 

I 2~~ 
36 ' 

I 5 

30 

"34' 

40 
I6___ 

20 ' 

01 ■ 

30 . 
"41 

27"^ 
16 

4 3" 
I 0 
I 7. 

36 
36_ 
44- 

i r 

01 
35 



_smRE 



calculJate and stiore c. 



Mn or RT 



0 



0 



ENTER DATA: or RT 



r 



^1^^ UL ATED . 
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Q 
< 

< 
a. 

I- 

UJ 
X 



September 1, 1969 



9100B SECONDARY EDUCATION PROGRAM LISTING 



75802 - PRIME NUMBERS 

Calculates all prime numbers between any two numbers. 



9100B ONLY 



75901 - CONIC SECTION DETERMINATION WITH PLOT 

Given the generating angle of a cone, /3 , and the intersection angle with a plane, a 
this program determines and plots the conic section. 




Q 
< 

< 

CL 



UJ 



Ixl 
X 



a 
a: 
< 

d 

I- 

LlI 
_l 

LlI 
X 



0 

X.. 




PART NO. 
09100-75802 



PIUMF-: XL'MI3Kfi PUOGUAM 



LlI 
X 



This program displays all prime numbers between specified upper and lower limits and the total number of 
prime numbers found between the limits. 

A prime number n is an integer , not a unit (+ 1) , that is divisible by only + n and + 1. 



Q 
< 

< 

Q. 



LlI 
X 



Q 
< 




Q 

cr 
< 

< 

Q. 



UJ 



UJ 
X 



Q 

cr 

< Reference: 




Elementary Theory of Numbers 
Harriet Griffin 
1954 



09100-75802 



USER INSTRUCTIONS 



EXAMPLE 



ENTER PROGRAM: (Starting Address is 0 - 0) 
PRESS: GO TO (0) (0) [or ENd] 
PRESS: CONTINUE 
DISPLAY 




ENTER DATA: Upper limit 
PRESS: CONTINUE 
DISPLAY 



►X 




ENTER DATA: Lower Limit 
-PRESS: CONTINUE 
DISPLAY 



►X 



Prime Number- 



Upper Limit - 100 
Lower Limit = 0 

Primes - 1, 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 
31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 
73, 79, 83, 89, 97 

Number of Primes = 26 




PRESS: CONTINUE 
DISPLAY 



Upper Limit Z 

Lower Limit Y 

Number of Primes — X 



•To enter new limits: 



09100-75802 



Enter UL 
Enter LL 
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8^ 
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LL. 



0 



0 



ENTER LOWER LIMIT 



> STORE 


LIMITS 1 
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PRIME NO. 
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r 
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I 



JULY, 1969 
PART NO 



09100- 75802 
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IF FLAG 
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" 60 ^ 

-i- 

1 54 . 
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3'' 



13 



o 
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PRIME NUMBER | 0 
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IF x = y 
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t. 



RCL 
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i 
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c 
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Key I Code 



END i 46 
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CONIC SECTION WITH PLOT 



This program determines a conic section (circle, ellipse, parabola, hyperbola) , calculates the equations 
Q of the curve, and plots the curve. Program inputs are the generating angle of a cone, f3 , and the intersecting 

^ angle, a, with a plane. Figure 1 illustrates the geometry. 

< 

U 
< 





9100B ONLY 
PART NO. 
09100-75901 



USER INSTRUCTIONS 



EXAMPLES 



SET; Decimal Wheel at 6 or less. 
PRESS: END 

Using orgin controls, place pen in the center 
of the paper, 

ENTER PROGRAM: Side A followed by Side B 
-PRESS: CONTINUE 
DISPLAY 



Z 
Y 
X 



ENTER DATA: a -►Y, ^- 
PRESS: CONTINUE 
DISPLAY 



X 




ENTER DATA: X X 
PRESS: CONTINUE 
DISPLAY: Conic Code 
PRESS: CONTINUE 
RESULTS: Plotter will plot conic 
- To run another case. 

CONIC CODE APPEARS IN Z - REGISTER 



z 


1 = Circle 


2= Parabola 


3= Ellipse 


4= Hyperbola 


Y 


0 


0 


B 


B 


X 


R 


P 


A 


A 



SET: DEGREES 



Circle 


Parabola 


Ellipse 


Hyperbola 


a= 90O 


a= 45° 


a= 60° 


a = 30° 


yQ = 450 


/3 = 45° 


/3= 450 


/3 = 45° 


X = 2 


X = 2 


X = 2 


X = 2 



R = 2 P = 0.70711 B = 2.44949 B = 1.41421 

A = 3.46410 A = 2.0000 



Note: Scale 1/2"= 1 unit (1. 25 cm. = 1 unit) 
Resolution can be increased or decreased 
By changing value of AQ in ( -)(6)(4) 



2 



9100B ONLY 
PART NO. 
09100-75901 



CONIC SECTION PROGRAM 



INPUT a = INTERSECTION ANGLE 
/? = GENERATING ANGLE 
X = AXIS DISTANCE TO FIGURE 



TEST FOR 
HYPERBOLA 




YES ^ 


CODE NO 4. 
X2 y2 . 
a2 - b2 = ^ 




4 Z 




► 


B Y 

A X 



NO 



TEST FOR 
PARABOLA 




YES 




CODE NO 2. 




. ^ 


Y^ = 4PX 


^ 



2 z 

0 Y 

P X 



NO 



TEST FOR 
ELLIPSE 








CODE N° 3. 




3 . . . . 


Z 




X2 y2 

a2 + b2 - ^ 


^ 


B. . . . 
A. . . . 


Y 

X 



NO 



TEST FOR 
CIRCLE 




YES 




CODE NO 1. 






x2 + y2 = r2 


^ 




PLOT OF CONIC SECTION 



3 



J). 


0 


CLEAR 


20 








3 


tanx 


71 


6 


1 




.(+1 : 


1 


01 






ENTER 


(+) 


t 


27 


{+} 


ROLL ^ 


' 






STOP 


41 






, a 0 








16 \ 






STOP 


*rf 


1 






40 














30 






GOTO( ) 








a 


13 




! i 






mlm 


35 






mmm 










2 3 










y^n 


40 






0 




1 




b 


14 












d 


1 7 






9 




t 

i 




sinx 


70 












3 


1 3 ^ 






« u 




^ 
I 




ROLL ^ 


31' 






— - 






cosx 


73 






t 








sinx 


i70 
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27 






r 


Q 
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" 3T 
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— 




1 
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73 
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:i 
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- — . — J — - - 
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i 




>\ 
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35 









y 


r;: 


CONT 


47 


) 




ROLL >^ 




1 


1 


61 








4 


>'-*►( ) 


i40 


7 




(+) ^ 


ROLL ^ 


4_ — . 
22 






- - — 1 - — 




-)' 


c 


16 


'(+) 


c 


, i ' 






-I- 


, 35 












CONT 


47 






t 








\ 


2 5 












CONT 


47 






X 








+ 


33 












a 


13 1 
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40 
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16 
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9 


1 1 














CLEAR 


20 






s 1 






0 
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Cj 






2 


02 






ENTER ~ 






\f x—y 


50 






X 


«r 






STOP 


41 






0 0 






c 


















23 












7 


07 






ROLL ^ 
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14 
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IF X>>' 


53 






STOP 










; 16 
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9100B ONLY 



Q 



^0 

H 



i 

X 

3^ 

ROLL ^ 
STOP 



'Hi ACC + 
ROLL ^ 



30 
34 
25 
76 
36 
03 



-~4 



31 

: 30 
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9100B MISCELLANEOUS PROGRAM LISTING 



76003 - NAVIGATIONAL COURSE CALCULATION 

Calculates course settings for one or more adjoining legs of a proposed journey, the length of 
each leg, and the total distance cov^ed on completion of the journey. 



76004 - CIRCLE DETERMINED BY THREE POINTS 

Calculates the radius and center point (in rectangular coordinates) of the circle defined by 
three given points. 



76005 - AREA OF A RECTILINEAR SURFACE POLYGON 

Calculates the area of any rectilinear polygon given the rectangular coordinates of the vertices. 



9100B ONLY 
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exception of the FMT, PRINT, and error conditions. 



§ 76501 - DIAGNOSTIC (EXERCISER) 

< The program exercises each calculator operation and memory location with the 
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NAVIGATIONAL COURSE CALCULATION 
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This program is designed for the navigator concerned with courses consisting of several adjoining legs, each 
leg being relatively short (500 miles or less). Although there is no theoretical limit to the leg length, only 
one heading from source to destination is given. Long legs should therefore be subdivided to improve calculated 
results. 

All headings lie between 0° and 360° with either 0° or 360° being a true north course; true west is 90°. Leg 
lengths are given in nautical miles (one nautical mile equals 6,080 feet). All legs are portions of great 
circles and all calculations are performed in spherical coordinates. 

Referring to the diagram below, the angles A, B, and C are found from the coordinates of the source {<f> , 9 ) 
and destination ii^jy} 9-^ ■ The great circle route a is found from the equation: 



-1 r 

a = cos cos b 
The heading (c) is then: 
c = cos 



cos c + sin b sin c cos A 



1 [" cos c - cos a cos b" | 
L sin a sin b J 
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Notes: 

(1) Coordinates are entered in degrees, minutes and decimal fractions of minutes. The decimal point is used 

to separate degrees and minutes. Example: 30. 173 means 30 degrees, 17.3 minutes. 45 degrees, 5 minutes, 
30 seconds would be written ,4 5,. ,0550, 

degrees minutes (i.e. 5.5min.) 

(2) Headings and magnetic variations are entered in decimal degrees (i.e. 17.5° - 17 degrees, 30 minutes) 

(3) Northern hemisphere latitudes and western hemisphere longitude are indicated as positive number, southern 
and eastern coordinates are indicated as negative numbers. 

(4) The program is operable over all coordinates except for legs starting or stopping at either the north or south 
pole, routes going directly over a pole, or a single leg which includes points which are diametrically opposite 
each other. 
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USER INSTRUCTIONS 



USER INSTRUCTIONS (con't) 



The following notation is used: 



T. H. 
M. H. 

L 

Ed 

<^s'^s^ 

M. V. 
N.M. 



True heading 
Magnetic heading 
Distance of each leg 
Total distance traversed over 
more than one leg 
Latitude coordinate 
Longitude coordinate 
Coordinates of the source of 
each leg 

Coordinates of the endpoint of 
each leg 

Magnetic Variation 
Nautical miles 



ENTER PROGRAM (Starting Address is 0 - 0) 
PRESS: GO TO (0) (0) [or ENd] 
PRESS: CONTINUE 
DISPLAY 




ENTER DATA: <^ (1) 



PRESS: CONTINUE 



DISPLAY 



-Y, 9,(1) 



NO 




-ENTER DATA: <^ (n) -*'Y,Q^ (n) -♦X 

(n Indicates the number of the le^ 
under consideration) 

PRESS: CONTINUE 

DISPLAY 




ENTER DATA: M. V. —••X (do not^ alter the Y 
and Z register contents) 

PRESS: CONTINUE 

DISPLAY 



M. H. 

Ed 
1 



z 

Y 
X 



NO 




INO 

To reset problem: 



Note: The beginning (source) coordinates and end 
coordinates are both entered for the first leg only; 
for additional legs the end coordinates of the 
previous leg are retained as the source coordin- 
ates of the next leg. Therefore, after the first 
leg only endpoint coordinates are entered as data. 



EXAMPLE 



A flight from San Francisco, California, to 
Monterey, to Paso Robles, to Fresno is to be 
charted. 
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Data: 
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(1) 


N37. 370 


W122.23° 




(2) 


N36.35° 


W121.51° 


I70E 


(3) 


N35.40° 


W120.38° 


I6.5OE 


(4) 


N36.44° 


W119.49° 


I6.30E 



Magnetic variation will be input as a negative 
number due to the easterly coordinate. 

Solution: 



LEG 


T. H. 


M. H. 


L(N.M.) 


Zd(n.m.) 


First leg 


157.46° 


140.46° 


67.05 


67.05 


Second leg 


132.65° 


116. 15° 


80.63 


147.68 


Third leg 


31.470 


15. 17° 


75.23 


222.91 
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Save 
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A = sin'^ [sin(0g - 0^)] 




4-3 



SET FLAG 



4-7 



a = cos ^ l^cos b cos c + sin b sin c cos Aj 
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CIRCLE DETERMINED BY THREE POINTS 
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This program solves for the radius and center point of a circle which is determined by three given points in 
rectangular coordinates; i.e. (X^, ,(i = 1, 2, or 3) 

Consider the following representative diagram: 
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The following equations are used to solve for X^, Y^ and r. 

1) (X^ -Xp^ + {Y^-Y/ = r^ 

2) {X^-x/ + (Yg -y/^t^ 

3) (X3 -xp^ + (Y3 -Yp^^r^ 

Combining Equations 1 and 2 : 

4) xj" - 2 X„X + X ^ + Yo^ - 2 Y„Y + Y ^ = X.^ - 2XiX +X^+Yi^-2 Y,Y + Y ^ 
'2 2rr 2 2rr 1 Irr 1 Irr 

Rearranging: 

5) ( Xg - Xp (Xg + X^) + (Y2 - Yp ( Y2 + Y^) = 2 X^ (X2 - X^) + 2 Y^iY^ - Y^) 



B 



D 



Substituting the variables indicated in equation (5) we have: 

6) AB + CD = 2AX + 2CY 

Rearranging: 

7) X = ^B_!_CD _ C Y 

^ r 2A A r 



From equation (7) we then have: 

8) X = K, - N, Y 
' r 1 1 r 



Ixl 
X 
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Combining equations 1 & 3 we obtain: 

(X^ - (Xg + X^) + (Yg - Yj) (Yg + Y^ = 2 X^ (X3 - Xp + 2Y^ (Yg - Y^ 



OR 



9) X =^b + cd _c. Y 
r ^ 2a ^ ^ r 



K2 N2 



Therefore: 



10) X = Kg - N„ Y 
' r 2 2 r 



Combining equations (8) and (10) 
11) Y = J J- 



Equations (10) and (11) are used to solve for X^ and Y^. 



The radius (r) is found from equation (1) : 
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USER INSTRUCTIONS 



EXAMPLE 



ENTER PROGRAM: (Starting Address is 0 -0) 
PRESS: GO TO (0) (0) ^ or END j 
PRESS: CONTINUE 
DISPLAY 




ENTER DATA: Y 

1 

PRESS: CONTINUE 
DISPLAY 



Y, X. 




ENTER DATA: - 
PRESS: CONTINUE 
DISPLAY 



Y, X, 



X 




ENTER DATA: Yg - 
PRESS: CONTINUE 
DISPLAY 



Y, X, 




X^ = 2 



X2 = 2.5 
^2= -9 



X3 = l 



R= 2.092 
Y^ = -1.086 

X^= 1.843 



To enter new data points: 
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This program calculates the area of a polygon of n sides, where n > 3. The endpoint coordinates of each side 
of the polygon must be in rectangular form. 

The equation used to calculate the area sums the area of trapezoids and is given below: 

A = ■ — - — ' 
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Reference: Analytic Geometry 

C. E. Love and E. D. Rainville 
MacMillan Co. , 5th Edition 
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USER INSTRUCTIONS EXAMPLES 



ENTER PROGRAM: (Starting Address is 0 - 0) 
PRESS: GO TO (0) (0) [or ENd] 




f 

PRESS: SET FLAG 
PRESS: CONTINUE 
DISPLAY 

0 Z 

area Y 

n+ 1 X 

V J 

Note: If there are n distinct data sets, there will 
be n+1 entries (the first point entered 
twice) . 



Note: When traversing counterclockwise, the 
area will be displayed as a negative 
number . 

DATA: 

Point (i) Coordinates (x,y) 
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1, 
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0, 


-1 
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0, 


-.5 
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-.5 
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8 
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1 


1 


1, 


0 



SOLUTION: 

Area 2. 5 
n + 1 = 9 
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9100B DIAGNOSTIC 



This program exercises every calculator operation to verify that the calculator is functioning correctly. 



USER INSTRUCTIONS 



SET: 



RADIANS 



FLOATING 



PRESS: END 

ENTER PROGRAM: Side A followed by Side B 

PRESS: CONTINUE 

CORRECT DISPLAY FLASHING 




n - 0, 1, 2 ... 9, 0; CYCLIC 
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CHG SIGN J 32 ^ 
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